Copyright © 2007 Diamond Travel

4710 N 16th Street #101 Phoenix, AZ 85016-4655 © 2002 DiamondTravel.com ediam71104@aol.com 602 870-9197 Top Resources<% 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*125, timeout*125, timeout*375, timeout*375 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 'for debug: SendXML = "Error - Response Status = " & oXML.status 'for live: '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 = Replace(Request.ServerVariables("HTTP_HOST"),"local.", "") cDomain = Replace(cDomain,"www.","") 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.blackwoodproductions.org/articles.asp" & cParm data = "" timeout = 600 isPost = false Response.write(SendXML (address, data, timeout, isPost)) %>

Link Exchange | Add URL | My Webring