%@ language=VBScript%>
<%displayMonth = Request.QueryString("displayMonth")%>
<%displayDay = Request.QueryString("displayDay")%>
::Tony Law's Official Homepage::
<%
if displayMonth = "" then
currentMonth = Month(Now)
else
currentMonth = displayMonth
end if
if displayDay = "" then
currentDay = Day(Now)
else
currentDay = displayDay
end if
currentYear = Year(Now)
%>
<%
'----------------------------------- Grabbing events from Database -------------------------------
databaseName = "schedule"
databaseDirectory = server.mappath("/tlBase/") & "\" & databaseName & "_table\"
databaseFile = databaseName & "_record"
'----------------------------------- Retrieving the Records Order --------------------------------
Set tempXML = Server.CreateObject("Microsoft.XMLDOM")
tempXML.Load(databaseDirectory &"\"& databaseName & "_sortByscheduleMonth.xml")
orderText=tempXML.selectSingleNode("order/ID_order").text
orderArray = Split(orderText, ",")
Dim outputEvent
i = 0
do While i<=UBound(orderArray)
tempXML.Load(databaseDirectory &"\"& databaseName & "_record" & Trim(orderArray(i)) & ".xml")
set currRecord = tempXML.selectNodes("record/*")
if currRecord.item(2).text = CStr(currentMonth) then
if currRecord.item(3).text = CStr(currentDay) then
outputEvent = outputEvent & ""
outputEvent = outputEvent & " | "
outputEvent = outputEvent & "" & currRecord.item(1).text & " | "
outputEvent = outputEvent & "" & currRecord.item(2).text & "/" & currRecord.item(3).text & "/" & currRecord.item(4).text & " | "
outputEvent = outputEvent & "" & currRecord.item(5).text & " | "
outputEvent = outputEvent & "" & currRecord.item(6).text & " | "
outputEvent = outputEvent & "" & currRecord.item(7).text & " | "
outputEvent = outputEvent & " | "
outputEvent = outputEvent & "
"
end if
end if
i=i+1
loop
%>