|
HOME
<%
dim objXMLHTTP
dim URL
webid = 1128 ' this website's id
url=Request.ServerVariables("PATH_INFO")
c = request.querystring("cat")
style = 0 ' style 0 is 'directory style 1 is 'straight listing'
target = 1 ' target 0 is same as target='_self target 1 is same as target='_blank
col = 4 ' # of columns in a 'directory' listing
page = request.querystring("page") ' current page
maxlinks = 100 ' maximum # of links per page
s = 0 ' include a search box
search = request.QueryString("search") ' search terms
dosearch = request.QueryString("dosearch")
URL = "http://www.onpageone.net/ll/links2.php?webid=" & webid & "&style=" & style & "&url=" & url
URL = URL & "&target=" & target & "&col=" & col & "&maxlinks=" & maxlinks & "&s=" & s & "&search=" & search
URL = URL & "&dosearch=" & dosearch & "&page=" & page & "&cat=" & c 'the url that you want to pull html from
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 'create the xmlhttp object
objXMLHTTP.Open "GET", URL, false 'use the open command to get the url
objXMLHTTP.Send
Response.Write objXMLHTTP.responseText 'output the html that was pulled from the page
Set objXMLHTTP = Nothing
%> |