<% Global t, e, p, jelszo Dim szoveg, megj, f if request.item("jelszo") = "chonanka" then jelszo = 9 end if if t = "" then t = 9 end if if p = "" then p = 9 end if if e = "" then e = 9 end if if request.item("t") <> "" then t = request.item("t") end if if request.item("p") <> "" then p = request.item("p") end if if request.item("e") <> "" then e = request.item("e") end if if Exists("text/"&t&e&p) then f=FileOpen("text/"&t&e&p) szoveg = FileRead(f) FileClose f end if if Exists("note/"&t&e&p) then f=FileOpen("note/"&t&e&p) megj = FileRead(f) FileClose f end if if request.item("szoveg") <> szoveg and request.item("szoveg") <> "" then szoveg = request.item("szoveg") DeleteFile "text/"&t&e&p f=FileOpen("text/"&t&e&p) FileWrite f, szoveg FileClose f end if if request.item("megj") <> megj and request.item("megj") <> "" then megj = request.item("megj") DeleteFile "note/"&t&e&p f=FileOpen("note/"&t&e&p) FileWrite f, megj FileClose f end if %>
Set Japanese text
" width="340" height="175" border="0" alt="glass">
" width="340" height="27" border="0" alt="cutlery_top">
" width="56" height="160" border="0" alt="cutlery_left"> " width="228" height="160" border="0" alt="plate"> " alt="cutlery_right" name="set_r3_c3" width="56" height="160" border="0">
blue fluted full blue fluted half blue fluted plain bleu fluted fish
blue fluted mega blue flower white full lace princess
cutlery_bernadotte cutlery_acorn cutlery_pyramid cutlery_beaded
cutlery_copenhagen cutlery_newyork cutlery_aj cutlery_vivianna
glass_1 glass_2

<% if jelszo = 9 then ="

glass = "&p&" cutlery = "&e&" plate = "&t&"

" = szoveg %>

<% = megj %>
<% else %> <% end if %>

starting image text
Royal Shopping