<% Dim cim1, cim2, f, i, k, szoveg, n, kep, oldalak, osz, fajlok, datum, d, aktualis, sz FileArray "issues", oldalak, 2 osz = Ubound(oldalak) if aktualis = "" then aktualis = osz end if if request.item("oldal") <> "" then aktualis = request.item("oldal") end if f = FileOpen("issues/" & aktualis & "/datum") datum = FileRead(f) FileClose f f = FileOpen("issues/" & aktualis & "/cim1") cim1 = FileRead(f) FileClose f f = FileOpen("issues/" & aktualis & "/cim2") cim2 = FileRead(f) FileClose f f = FileOpen("issues/" & aktualis & "/szoveg") ParseString szoveg, FileRead(f), "<**-**>\n" FileClose f n= Ubound(szoveg) + 1 FileArray "issues/" & aktualis, fajlok For i = 1 to Ubound(fajlok) if Right(fajlok(i), 4) = ".jpg" then kep(NthField(NthField(fajlok(i), ".", 1), "-", 1)) = fajlok(i) end if next %><% Dim cim1, cim2, f, i, k, szoveg, n, kep, oldalak, osz, fajlok, datum, d, aktualis, sz FileArray "issues", oldalak, 2 osz = Ubound(oldalak) if aktualis = "" then aktualis = osz end if if request.item("oldal") <> "" then aktualis = request.item("oldal") end if f = FileOpen("issues/" & aktualis & "/datum") datum = FileRead(f) FileClose f f = FileOpen("issues/" & aktualis & "/cim1") cim1 = FileRead(f) FileClose f f = FileOpen("issues/" & aktualis & "/cim2") cim2 = FileRead(f) FileClose f f = FileOpen("issues/" & aktualis & "/szoveg") ParseString szoveg, FileRead(f), "<**-**>\n" FileClose f n= Ubound(szoveg) + 1 FileArray "issues/" & aktualis, fajlok For i = 1 to Ubound(fajlok) if Right(fajlok(i), 4) = ".jpg" then kep(NthField(NthField(fajlok(i), ".", 1), "-", 1)) = fajlok(i) end if next %>
  Amerie


 
home
shop
showcase
location
amerie news

 
Gift Shop amerie
 
ギフトショップ・アメリエ
   
<% = datum %>
ISSUE <% = aktualis %>

<% = cim1 %>

<% For i = 1 to n %> <% next %>

<% sz = replace(szoveg(i), "\r\n", "\n") sz = replace(sz, "\n\r", "\n") = replace(sz, "\n", "
") & "
" %>
<% if kep(i) <> "" %>
<% end if %>




 

© <% =SecondsToDate(now(), "yyyy") %> Amerie A/S. All rights reserved. - Copenhagen naruhodo Guide - by JIM Inc.