<%
'**********************************************************************************************************************
'Start write the page streaming section:  DO NOT TOUCH THIS CODE
'**********************************************************************************************************************

Function CheckErr (ByRef msg)
	CheckErr = False
	If (Err <> 0) Then
		msg = "Error - " & Err.Description
		CheckErr = True
	End If
End Function

Function SendXML (address, data, timeout, isPost)
	On Error Resume Next
	Dim method : method = "GET"
	If (isPost) Then method = "POST"
	Dim oXML : Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
	If (CheckErr (SendXML)) Then Exit Function
	oXML.setTimeouts timeout*7, timeout*7, timeout*15, timeout*15
	oXML.Open method, address, False
	If (CheckErr (SendXML)) Then Exit Function
    oXML.setRequestHeader "Content-Type", "text/xml"
    oXML.Send data
	If (CheckErr (SendXML)) Then Exit Function

	If (oXML.status = 200) Then
		SendXML = oXML.responseText
	Else
		SendXML = "<!--Error - Response Status = " & oXML.status & "-->"
	End If

	If (CheckErr (SendXML)) Then Exit Function
	oXML = Nothing
End Function


	'on error resume next


	cDomain = trim(lcase(Replace(Request.ServerVariables("HTTP_HOST"),"local.", "")))
	if left(cDomain,4)="www." then
		cDomain = right(cDomain,(len(cDomain)-4))
	end if
	cParm = "?domain=" & cDomain
	cParm = cParm & "&agent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT"))
	cParm = cParm & "&referer=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER"))
	cParm = cParm & "&address=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR"))
	cParm = cParm & "&uri=" & Server.URLEncode(Request.ServerVariables("URL"))
	cParm = cParm & "&query=" & Server.URLEncode(Request.ServerVariables("QUERY_STRING"))
	cParm = cParm & "&cScript=asp"

	data = ""
	timeout = 1000
	isPost =  false

'**********************************************************************************************************************
'Stsrt write the page content section:  DO NOT TOUCH THIS PART OF CODE
'======================================================================================================================
	'Response.Clear
	Response.ContentType = "text/xml"
	address = "http://www.mysearchexchange.com/ArticleSiteMap.asp" & cParm
	Response.write(SendXML (address, data, timeout, isPost))
'======================================================================================================================
'End write the page content section:  DO NOT TOUCH THIS PART OF CODE
'**********************************************************************************************************************
%>