<% Dim cim1, cim2, f, i, k, szoveg, n, kep, oldalak, osz, fajlok, datum, d, aktualis, sz
FileArray "issues", oldalak, 2
if request.item("oldal") <> "" then
aktualis = request.item("oldal")
end if
osz = Ubound(oldalak)
if aktualis = "" then
aktualis = osz
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
%>
Ausgabe <% = aktualis %>
<% = cim1 %>
<% For i = 1 to n %>
<% sz = replace(szoveg(i), "\r\n", "\n")
sz = replace(sz, "\n\r", "\n")
= replace(sz, "\n", "
") & "
" %>
<% if kep(i) <> "" %>
<% end if %>
<% next %>