<% Global esemenyszam, kategoria, subkat, actkat, actsubkat, nszam, kat Global actkatnev, aszam, kepfajta, kepar, esemeny Dim f if request.item("sorszam") <> "" then esemenyszam = request.item("sorszam") f = FileOpen("photo/kepek/" & esemenyszam & "/eventnevj") esemeny = FileRead(f) Fileclose f f = FileOpen("photo/kepek/" & esemenyszam & "/kategoriakj") ParseString kategoria, FileRead(f), "<*>\n" Fileclose f actkat = 1 actsubkat = 1 f = FileOpen("photo/kepek/" & esemenyszam & "/kategoriakj1") ParseString subkat, FileRead(f), "<*>\n" Fileclose f nszam = FileCount("photo/kepek/" & esemenyszam & "/nagy") FileArray "photo/kepek/" & esemenyszam & "/kicsi/1/1", kat actkatnev = kategoria(actkat) aszam = 1 Remove kepfajta Remove kepar f = FileOpen("photo/kepek/" & esemenyszam & "/forma") ParseString kepfajta, FileRead(f), "*" Fileclose f f = FileOpen("photo/kepek/" & esemenyszam & "/ar") ParseString kepar, FileRead(f), "*" Fileclose f end if %> INDIES PhotoWorld <body bgcolor="#FFFEDA"> </body>