<% global MaberaUser, aktualis #nocompress if System.item(request.item("s"), "mabera", 1) = "mabera" then MaberaUser = "mabera" end if %> mabera News


<% if MaberaUser = "mabera" then Dim cim1, cim2, f, i, k, szoveg, n, kep, oldalak, osz, fajlok, datum, d FileArray "issues", oldalak, 2 osz = Ubound(oldalak) for i = 1 to osz k = osz - i + 1 if oldalak(k) = ".DS_Store" then remove oldalak(k) DeleteFile "issues/.DS_Store" end if next osz = Ubound(oldalak) if aktualis = "" then aktualis = osz end if if request.item("oldal") <> "" then aktualis = request.item("oldal") end if if request.item("new") = "y" then aktualis = osz + 1 NewFolder "issues/" & aktualis remove oldalak FileArray "issues", oldalak, 2 f = FileOpen("issues/" & aktualis & "/datum") FileWrite f, SecondsToDate(now(), "mmmm d, yyyy") FileClose f end if if request.item("aktival") = "igen" then DeleteFile "issues/" & aktualis & "/cim1" f = Fileopen("issues/" & aktualis & "/cim1") FileWrite f, request.item("cim1") FileClose f DeleteFile "issues/" & aktualis & "/cim2" f = Fileopen("issues/" & aktualis & "/cim2") FileWrite f, request.item("cim2") FileClose f Remove szoveg For i = 1 to request.item("n") if request.item("szoveg" & i ) <> "" then Append szoveg, request.item("szoveg" & i ) end if next DeleteFile "issues/" & aktualis & "/szoveg" f = Fileopen("issues/" & aktualis & "/szoveg") FileWrite f, BuildString(szoveg, "<**-**>\n") FileClose f 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 %>

mabera NEWS MANAGE PAGE

Actual news page:
<% = datum %>
ISSUE <% = aktualis %>

Title:

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



<% if kep(i) <> "" %>
(click to the image to change it) <% else %>
upload image <% = i %>
<% end if %>

 

 


 

<% else %>


Please login.
<% end if %>