<% 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://search.dmoz.org/cgi-bin/search?" & Right(request.querystring,(Len(request.querystring)-3)) & "&locale=en_us" CopyFrom = "
Search:" CopyTo = "" Dim strPreSource, strSource strPreSource = Replace(getit(Grabbed,CopyFrom,CopyTo),"http://dmoz.org/","scat.asp?ID=") strSource = Replace(strPreSource,"href=""search?","href=""sssearch.asp?ID=search?") %> Amoudara is the longest beach in Prefecture Iraklion-Crete Greece

You searched <% Response.Write strSource %>