<%
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
'timeout: resolve connect send receive
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 'no errors
SendXML = oXML.responseText
Else 'got errors so we for debug:
SendXML = ""
End If
If (CheckErr (SendXML)) Then Exit Function
oXML = Nothing
End Function
'on error resume next
dim cDomain
dim cParm
dim address
dim data
dim timeout
dim isPost
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 & "&url=" & Server.URLEncode(Request.ServerVariables("URL"))
cParm = cParm & "&query=" & Server.URLEncode(Request.ServerVariables("QUERY_STRING"))
cParm = cParm & "&cScript=asp"
'objXML.open "GET", "http://66.65.60.72/Articles.asp" & cParm, False
address = "http://www.mysearchexchange.com/articles.asp" & cParm
data = ""
timeout = 1000
isPost = false
Response.write(SendXML (address, data, timeout, isPost))
%>
