<%@ 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 %> <%=outputEvent%>