Fldal -
A hnap festmnye
A hnap festmnye
Tovbbi ajnlatok
<%
Dim Honap() As String={"","janur","februr","mrcius","prilis","mjus","jnius","jlius","augusztus","szeptember","oktber","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) & " ")
%>
<%= "" %>
Tovbbi ajnlatok
<%
For I=3 To Kep.GetUpperBound(0) Step 3
Ev=Left(Kep(I),4)
Ho=Mid(Kep(I),5,2)
Response.Write("" & Ev & ". " & Honap(Ho) & " | ")
Response.Write("")
Response.Write(Kep(I+1))
Response.Write("")
Response.Write(Kep(I+2) & " | ")
Next
Response.Write("")
%>
|
|