Dim ToDoXML

Dim CurrBannerPage
Dim CurrLeftPage
Dim CurrRightPage
Dim CurrBodyPage
Dim Node

Sub SetCurrRightPage(RightPage)
	CurrRightPage = RightPage
End Sub

Sub EvalToDo(Parm)
	Set ToDoXML = CreateObject("Microsoft.XMLDOM")
	ToDoXML.async = False
	If Parm = "" Then
		ToDoXML.Load "XML_ToDo.ASP"
	Else
		ToDoXML.Load "XML_ToDo.ASP?" + Parm
	End If
	If Not ToDoXML.documentElement Is Nothing Then
		With ToDoXML.documentElement
			If Not .selectSingleNode("Cmd[Type=""NewPage""]") Is Nothing Then				
				Url = .selectSingleNode("Cmd[Type=""NewPage""]").lastChild.Text				
				Window.Open Url, "new_page", "location=yes,toolbar=yes,menubar=yes,fullscreen=no,resizable=yes,scrollbars=yes,status=yes"
			End If
			
		    Set Node = .firstChild
		    Do Until Node Is Nothing
				If Not Node.firstChild Is Nothing Then
					Select Case Node.firstChild.Text
						Case "RefreshSite"
							Window.navigate Node.lastChild.Text
					    Case "HideTopFrame"
							CurrBannerPage = ""
					        PosBannerFrame.innerHTML = "<IMG scr=""Images/1ptrans.gif"" width=1 height=1>"
					    Case "ShowTopFrame"
							' If Not Node.lastChild.Text = CurrBannerPage Then
								CurrBannerPage = Node.lastChild.Text
								PosBannerFrame.innerHTML = "<IFRAME ID=BannerFrame Name=BannerFrame Width=""100%"" Height=""70"" allowtransparency=true frameborder=0 scrolling=no src=""" + CurrBannerPage + """ style:""z-index:-100""></IFRAME>"
							' End If
					    Case "HideLeftFrame"
							CurrLeftPage = ""
					        PosLeftFrame.innerHTML = "<IMG scr=""Images/1ptrans.gif"" width=1 height=1>"
					    Case "ShowLeftFrame"
							' If Not Node.lastChild.Text = CurrLeftPage Then
								CurrLeftPage = Node.lastChild.Text
								PosLeftFrame.innerHTML = "<IFRAME ID=LeftFrame  Name=LeftFrame Width=""137"" Height=""100%"" allowtransparency=true frameborder=0 scrolling=auto src=""" + CurrLeftPage + """ style:""z-index:-100""></IFRAME>"
							' End If
					    Case "HideRightFrame"
							CurrRightPage = ""
					        PosRightFrame.innerHTML = "<IMG scr=""Images/1ptrans.gif"" width=1 height=1>"
					    Case "ShowRightFrame"
							' If Not Node.lastChild.Text = CurrRightPage Then
								CurrRightPage = Node.lastChild.Text
								PosRightFrame.innerHTML = "<IFRAME ID=RightFrame Name=RightFrame Width=""170"" Height=""100%"" allowtransparency=true frameborder=0 scrolling=auto src=""" + CurrRightPage + """ style:""z-index:-100""></IFRAME>"
							' End If
					    Case "HideBodyFrame"
							CurrBodyPage = ""
					        PosBodyFrame.innerHTML = "<IMG scr=""Images/1ptrans.gif"" width=1 height=1>"
					    Case "ShowBodyFrame"
							' If Not Node.lastChild.Text = CurrBodyPage Then
								CurrBodyPage = Node.lastChild.Text
								PosBodyFrame.innerHTML = "<IFRAME ID=BodyFrame Name=BodyFrame Width=""100%"" Height=""100%"" allowtransparency=true frameborder=0 scrolling=auto src=""" + CurrBodyPage + """ style:""z-index:-100""></IFRAME>"
							' End If							
					End Select
				End If
		        Set Node = Node.nextSibling
		    Loop
		End with
	End If
End Sub