<% currentPage = request("currentPage") if currentPage = "" then currentPage = "1" end if %> <% '----------------------------------- Choosing Day -------------------------------- response.write("PAGE") for i= 1 to 3 if CStr(i) = currentPage then response.write(" " & currentPage & "") else response.write(" " & i & "") end if next response.write("

") %> <% '----------------------------------- Retrieving from tlBase -------------------------------- databaseName = "convocation" databaseDirectory = server.mappath("/tlBase/") & "\" & databaseName & "_table\" databaseFile = databaseName & "_record" photoAlbumDirectory = "../media/photos/convocation/thumbnails/" Set tempXML = Server.CreateObject("Microsoft.XMLDOM") tempXML.Load(databaseDirectory &"\"& databaseName & "_sortByID.xml") orderText=tempXML.selectSingleNode("order/ID_order").text orderArray = Split(orderText, ",") breakIndex=0 for i=0 to UBound(orderArray) tempXML.Load(databaseDirectory &"\"& databaseName & "_record" & Trim(orderArray(i)) & ".xml") set currRecord = tempXML.selectNodes("record/*") '----------------------------------- Select current Day -------------------------------- if Mid(currRecord.item(1).text, 5 ,Instr(4, currRecord.item(1).text, "-", 1)-5) = CStr(currentPage) then response.write(" ") breakIndex = breakIndex+1 if (breakIndex=4) then breakIndex=0 response.write("
") end if end if next set currRecord = nothing set tempXML = nothing %>