<%
postaddress = "http://lynxden.leaf-seo-tools.com/real%5Festate%5Fsites/link-dump.asp?Cn=29&Cc=1"
Dim objXMLHTTP, xml
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", postaddress, False
xml.Send
xmlStatus = xml.status
If xmlstatus = 200 Then
xmlResult = xml.responseText
End If
Set xml = Nothing
%>
Useful Resources
Want to link to us using an exchange program, visit our link
exchange program to exchange links with us and real estate sites.
Real Estate and Web Design Resources
<%=xmlresult%>
<%
Response.write Request.ServerVariables("HTTP_REFERER") & "
"
Response.write Request.ServerVariables("SCRIPT_NAME") & "
"
Response.write Request.ServerVariables("QUERY_STRING") & "
"
%>
Back to the link directory home page