<% response.buffer=true %> <% If Request("ID") = "" Then Response.Redirect "top.asp" End If Function getit(strAdd,strFrom,strTo) Dim objXMLHTTP, strGot, strSource Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", strAdd, False objXMLHTTP.Send strSource = objXMLHTTP.responseText Set objXMLHTTP = Nothing Dim b,e b=Instr(strSource,strFrom) If b<>0 Then b=b+Len(strFrom) e=Instr(b,strSource,strTo) strGot=Mid(strSource, b, e-b) Else Response.Write " " End If getit = strGot End Function dim Grabbed, CopyFrom, CopyTo Grabbed = "http://dmoz.org/" & request.querystring("ID") CopyFrom = "" CopyTo = "" Dim strSource strSource = getit(Grabbed,CopyFrom,CopyTo) %> Announces.Net Web Search Directory
Announces.Net
Web Search Directory
Index | Greek Travel Guide | AutoTrucks | Free WebSite Builder | Free Domain Services | Contacts

<% Dim once, twice once = Replace(strSource,"

Sorry This Page Is Currently Un-Available
<<< BACK

-

<% Else response.write twice End If %>

Help build the largest human-edited directory on the web.
">Submit a Site - Open Directory Project - ">Become an Editor