<%
'*** Set filename
sFile = Server.MapPath("program.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(sFile, 1)
'*** Read row
Do While f.AtEndOfStream <> True
strLine = f.ReadLine
rowArray = Split(strLine, "|")
If UBound(rowArray) > 4 Then
rowType = rowArray(0)
showTime = rowArray(1)
krogTime = rowArray(2)
krogName= rowArray(3)
krogAddress= rowArray(4)
krogExtra= rowArray(5)
currentDate=FormatDateTime(Now, 0)
If rowType = "0" Then
%>
|
|
<%
End If
If rowType = "1" Then
If showTime <= FormatDateTime(Now, 0) Then
%>
| <%=krogTime%> |
<%=krogName%> |
<%=krogAddress%> |
| <%=krogExtra%> |
<%
End If
End If
End If
Loop
f.Close
Set f = Nothing
Set fso = Nothing
%>
|
Kalendern