<%@ Language=VBScript %>
<!-- #include File = "include.asp" -->
<%
	
strPage = GetQuery("Page")
if strPage = "" then
	strPage = "Home"
end if

sMain = GetTemplate("mainhdr.htm")
sHtml = ""

Select Case strPage
	Case "Home"

		sHtml = "Home"
	
		'sHtml = sHtml & nSearchCount
	Case "Tools"
		sHtml = "Tools"
	Case "Xbox"
		'sHtml = "xboxhdr.htm"

		
	Case Else
		'sHtml = "Unknown Page"
End Select	
	
	sMain = Replace(sMain, "<--HTML-->", sHtml)
	
	Response.Write(sMain)
	'Response.Write(Session("lan"))
	'Response.Write(Session("test"))


	'Conn.Close
	Set Conn = Nothing
%>