|
<%
Dim responsetext
Dim XmlHttp
Dim Getpage
Dim websiteid
websiteid=2300
Getpage = "http://www.realty-link-exchange.com/directory.asp?Cat="&Request.QueryString("Cat")&"&page="&Request.QueryString("page")&"&websiteid="&websiteid
Set XmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
XmlHttp.Open "GET", Getpage, False
XmlHttp.Send
responsetext = XmlHttp.ResponseText
Response.Write(responsetext)
%>
|