<%
Option Explicit
Response.Buffer = True
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
xml.load (Server.MapPath("page.xml"))
Dim title, poop, person, person2
title = xml.documentElement.childNodes(0).text
poop = xml.documentElement.childNodes(1).text
person = xml.documentElement.childNodes(2).text
person2 = xml.documentElement.childNodes(3).text
Set xml = Nothing
%>
Staff Calendar