Zalaegerszegi Zrínyi Miklós Gimnázium
<%@ Page Language="VB" Debug="true" %>

F�oldal - H�rek arch�vum

H�rek arch�vum


<% Dim I, N, Ev, Db As Integer Dim Ut As String Ut = Request.ServerVariables("PATH_TRANSLATED") Ut = Left(Ut,Ut.Length-11) N=IO.Directory.GetDirectories(Ut).Length-2 ' -2 a vak mappa miatt! I=0 Db=0 Response.Write("
    ") Do While Db" & Ev & "/" & Ev+1 & ". tan�v 1. f�l�v") Db+=1 If Db2. f�l�v") Db+=1 End If Response.Write("") I+=1 Loop Response.Write("
") %>

www.zmgzeg.edu.hu
Látogatók 2020. jan. 1. óta (Pageviews: a megnyitott oldalak száma)
Flag Counter