<% Dim t, e, p, f, szoveg, megj, szovege, megje %>

 

<% For t = 1 to 8 For e = 1 to 8 For p = 1 to 2 if Exists("text-e/"&t&e&p) then f=FileOpen("text-e/"&t&e&p) szovege = FileRead(f) FileClose f else szovege = "" end if if Exists("note-e/"&t&e&p) then f=FileOpen("note-e/"&t&e&p) megje = FileRead(f) FileClose f else megje = "" end if %> <% next next next %>
English text
Japanese text
<% = "................plate = "&t&" cutlery = "&e&" glass = "&p&"
" %>
<%= szovege %>
<% = megje %>
<% if Exists("text/"&t&e&p) then f=FileOpen("text/"&t&e&p) szoveg = FileRead(f) FileClose f else szoveg = "" end if if Exists("note/"&t&e&p) then f=FileOpen("note/"&t&e&p) megj = FileRead(f) FileClose f end if %> <% = "................plate = "&t&" cutlery = "&e&" glass = "&p&"
" %>
<%= szoveg %>
<% = megj %>

 


Royal Shopping