• Qualifikation
• Angebote für Private
• Angebote für Betriebe
• Deutschkurs
• News
• Links

mabera NEWS

<% 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 %>

<% for k = 1 to osz i = osz - k + 1 f = FileOpen("issues/" & i & "/datum") d = FileRead(f) FileClose f%> > <% = i %> : <% = d %> <% 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 %>