Custom Search
<% On Error Resume Next
Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")
oHttp.setTimeouts 3000, 3000, 3000, 3000 'Timeouts in Milliseconds
oHttp.Open "GET", "http://dlaserv.com/RequestFormattedAds.aspx?domainname=" & Request.ServerVariables("HTTP_HOST") & "&VisitorIP=" & Request.ServerVariables("REMOTE_ADDR") & "&pageurl=" & Replace(Replace(Request.ServerVariables("URL"),"?","~"),"&","~") & "~" & Replace(Replace(CStr(request.querystring),"?","~"),"&","~"), False
oHttp.Send
Response.Write (oHttp.ResponseText)
set oHttp = Nothing %>
THANK YOU FOR ENTERING MY WEBSITE. HOPE YOU LIKE USING AND WILL INTEND ON COMING AGAIN!!!!!
Custom Search
-
-
Shane subscriptions in Google Reader
-
-
-
