Maps & Directions Click Here

Calendar of Events

<% dim darr(12) darr(1) = "January" darr(2) = "February" darr(3) = "March" darr(4) = "April" darr(5) = "May" darr(6) = "June" darr(7) = "July" darr(8) = "August" darr(9) = "September" darr(10) = "October" darr(11) = "November" darr(12) = "December" Set indexFile = Server.CreateObject("Microsoft.XMLDOM") indexFile.async = false indexFile.load server.mappath("event-content.xml") Set subNodes = indexFile.selectNodes("//newsindex/article") for i = 1 to 12 For Each Node In subNodes ' response.Write("
"& i &"
") if int(trim(Node.selectSingleNode("archive").Text)) = i then if si = 0 then response.Write("

"& darr(i) &"

") end if si = si + 1 response.Write(""& Node.selectSingleNode("title").Text & "
" & Node.selectSingleNode("file").Text &"
"& Node.selectSingleNode("short").Text &"

---

") end if ' response.Write(si) next si = 0 next Set objXML = Nothing %>

Site Map Home