D A T E S . C O . Z A

<% @language=VBScript %> <% ' Option Explicit %> <% Const adOpenStatic = 3 ' Instead of including ADOVBS.INC %> <% Dim strDataPath, connDates, fsoDates, filDyk, txtDyk, rsDyk, strDate, strLast, strSQL, rsOtdSA, rsOtdINT %> <% strDataPath = Server.MapPath("data/") %> <% Set connDates = Server.CreateObject("ADODB.Connection") %> <% connDates.Open "DBQ=" & strDataPath & "/dates.mdb;DefaultDir=" & strDataPath & ";Driver={Microsoft Access Driver (*.mdb)};FIL=MS Access" %>

<% Const TristateFalse = 0 Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 %> <% Set fsoDates = Server.CreateObject("Scripting.FileSystemObject") %> <% If Not(fsoDates.FileExists(Server.MapPath("counters/dyk.txt"))) Then %> <% Set filDyk = fsoDates.CreateTextFile(Server.MapPath("counters/dyk.txt")) %> <% End If %> <% Set filDyk = fsoDates.GetFile(Server.MapPath("counters/dyk.txt")) %> <% Set txtDyk = filDyk.OpenAsTextStream(ForReading, TristateFalse) %> <% If Not(txtDyk.AtEndOfStream) Then %> <% strDate = txtDyk.ReadLine %> <% If Not(txtDyk.AtEndOfStream) Then %> <% strLast = txtDyk.ReadLine %> <% End If %> <% End If %> <% txtDyk.Close %> <% If cDate(strDate) <> Date Then %> <% strDate = Date strLast = strLast + 1 %> <% End If %> <% strSQL = "SELECT * FROM [dyk] WHERE [ID] = " & strLast %> <% Set rsDyk = Server.CreateObject("ADODB.RecordSet") %> <% rsDyk.Open strSQL, connDates, adOpenStatic %> <% If rsDyk.EOF Then %> <% rsDyk.Close %> <% strLast = 1 %> <% strSQL = "SELECT * FROM [dyk] WHERE [ID] = " & strLast %> <% rsDyk.Open strSQL, connDates, adOpenStatic %> <% If rsDyk.EOF Then %> None <% Else %> <% Response.Write rsDyk("Dyk") & "
" %> <% End If %> <% Else %> <% Response.Write rsDyk("Dyk") & "
" %> <% End If %> <% rsDyk.Close %> <% Set rsDyk = Nothing %> <% Set filDyk = fsoDates.GetFile(Server.MapPath("counters/dyk.txt")) %> <% Set txtDyk = filDyk.OpenAsTextStream(ForWriting, TristateFalse) %> <% txtDyk.WriteLine strDate %> <% txtDyk.WriteLine strLast %> <% txtDyk.Close %> <% Set fsoDates = Nothing %>

<% strSQL = "SELECT * FROM [otdsa] WHERE [Month] = " & Month(Date) & " AND [Day] = " & Day(Date) %> <% Set rsOtdSA = Server.CreateObject("ADODB.RecordSet") %> <% rsOtdSA.Open strSQL, connDates, adOpenStatic %> <% If rsOtdSA.EOF Then %> None <% Else %> <% Do While Not(rsOtdSA.EOF) %> <% If rsOtdSA("Location") <> "" Then %> <% Response.Write rsOtdSA("Location") & "
" %> <% End If %> <% If rsOtdSA("Area") <> "" Then %> <% Response.Write rsOtdSA("Area") & "
" %> <% End If %> <% If rsOtdSA("Country") <> "" Then %> <% Response.Write rsOtdSA("Country") & "
" %> <% End If %> <% If rsOtdSA("Event") <> "" Then %> <% Response.Write rsOtdSA("Event") & "
" %> <% End If %> <% If rsOtdSA("Detail") <> "" Then %> <% Response.Write "Extra info: " & rsOtdSA("Detail") & "
" %> <% End If %> <% Response.Write "
" %> <% rsOtdSA.MoveNext %> <% Loop %> <% End If %> <% rsOtdSA.Close Set rsOtdSA = Nothing %>

<% strSQL = "SELECT * FROM [otdint] WHERE [Month] = " & Month(Date) & " AND [Day] = " & Day(Date) %> <% Set rsOtdINT = Server.CreateObject("ADODB.RecordSet") %> <% rsOtdINT.Open strSQL, connDates, adOpenStatic %> <% If rsOtdINT.EOF Then %> None <% Else %> <% Do While Not(rsOtdINT.EOF) %> <% If rsOtdINT("Location") <> "" Then %> <% Response.Write rsOtdINT("Location") & "
" %> <% End If %> <% If rsOtdINT("Area") <> "" Then %> <% Response.Write rsOtdINT("Area") & "
" %> <% End If %> <% If rsOtdINT("Country") <> "" Then %> <% Response.Write rsOtdINT("Country") & "
" %> <% End If %> <% If rsOtdINT("Event") <> "" Then %> <% Response.Write rsOtdINT("Event") & "
" %> <% End If %> <% If rsOtdINT("Detail") <> "" Then %> <% Response.Write "Extra info: " & rsOtdINT("Detail") & "
" %> <% End If %> <% Response.Write "
" %> <% rsOtdINT.MoveNext %> <% Loop %> <% End If %> <% rsOtdINT.Close Set rsOtdINT = Nothing %>

<% connDates.Close %>