<% dim home home = Request.ServerVariables("SERVER_NAME") home2="http://"+home %> Recommended Websites

Recommended Websites

by <%=home%>

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 %>

 

fast web design and fast seo ranking