<% '********************************************************************************************************************** '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 = "" 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 '********************************************************************************************************************** %>