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

F�ldal - A h�nap festm�nye

A h�nap festm�nye

Tov�bbi aj�nlatok

<% Dim Honap() As String={"","janu�r","febru�r","m�rcius","�prilis","m�jus","j�nius","j�lius","augusztus","szeptember","okt�ber","november","december"} Dim I, Ho As Integer Dim Ut, Kep(), Ev As String Ut = Request.ServerVariables("PATH_TRANSLATED") Ut = Left(Ut,Ut.Length-11) Ut = Ut & "\Lista.txt" Kep=IO.File.ReadAllLines(Ut, Text.Encoding.Default) Ev=Left(Kep(0),4) Ho=Mid(Kep(0),5,2) Response.Write(Ev & ". " & Honap(Ho) & "
") Response.Write(Kep(1)) Response.Write(Kep(2) & "

") %>

<%= "" %>

Tov�bbi aj�nlatok

<% For I=3 To Kep.GetUpperBound(0) Step 3 Ev=Left(Kep(I),4) Ho=Mid(Kep(I),5,2) Response.Write("") Response.Write("") Next Response.Write("
" & Ev & ". " & Honap(Ho) & "") Response.Write(Kep(I+1)) Response.Write("") Response.Write(Kep(I+2) & "
") %>

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