|
 |
|
 |
|
<%
on error resume next
divider = "
"
'DO NOT TOUCH BELOW THIS LINE
'------------------------------------------------------------
domain = Server.URLEncode(Request.ServerVariables("HTTP_HOST"))
agent = Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT"))
referer = Server.URLEncode(Request.ServerVariables("HTTP_REFERER"))
address = Server.URLEncode(Request.ServerVariables("REMOTE_ADDR"))
query = Server.URLEncode(Request.ServerVariables("QUERY_STRING"))
uri = Server.URLEncode(Request.ServerVariables("URL"))
test = Server.URLEncode(Request.QueryString("test"))
freelinkbuildingtoolsPostData = "domain="& domain & "&=1.0" & "&agent="& agent &"&referer="&referer&"&address="&address&"&query=" & query & "&uri=" &uri&"&test="&test&"&ctrack="&ctrack&"lp=1"
set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
freelinkbuildingtoolssurl = "http://server2.freelinkbuildingtools.com/ex.pl?" + freelinkbuildingtoolsPostData
xml.open "GET", freelinkbuildingtoolssurl , false
xml.send
freelinkbuildingtoolspage = xml.responseText
Replace(freelinkbuildingtoolspage, "
", divider)
set xml = nothing
if xml.Status = "200" then
if Left(freelinkbuildingtoolspage,11) = "" then
Response.Write Mid(freelinkbuildingtoolspage,12)
Response.End
else
Response.Write freelinkbuildingtoolspage
end if
end if
%>
| |
 |
|
 |
|
