Obtener contenido de otro sitio

[lexus]

<%Option Explicit
Dim HttpObj,start,finish,dirData,rawData,count,SearchT erms, Request_Get
SearchTerms = CStr(Request.QueryString("search"))
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "http://search.dmoz.org/cgi-bin/search?" & Request.QueryString
dirData = HTTPObj.GetURL
'Uncomment the below lines and comment out the AspHTTP ones above if you have ASPtear installed instead
'Set HttpObj = Server.CreateObject("SOFTWING.ASPtear")
'dirdata = HttpObj.Retrieve("http://search.dmoz.org/cgi-bin/search", 2, Request.QueryString, "", "")
rawData = split(dirData, "<HR>")
dirData = ""
start = InStr (rawData(0), "<center>Search")
if start <> 0 then
finish = InStr (start, rawData(0), "<p><CENTER>")
if CStr(Request.QueryString("all"))="n o" then
finish = InStr (finish+11, rawData(0), "<p><CENTER>")
end if
rawData(0) = mid (rawData(0), start, (finish+12)-start)
for count = 0 to UBound(rawData) - 1
dirData = dirData + rawData(count)
next
dirData = Replace(dirData, "<b><a href=""http://dmoz.org/"">Open Directory Project</a></b>", "<b><a href=""/"">PhilWebSearch</a></b>")
dirData = Replace(dirData, "Open Directory", "myWebDir")
dirData = Replace(dirData, "/img/star.gif", "recommended.gif")
dirData = Replace(dirData, "bgcolor=""#cccccc""&quot ;, "bgcolor=""#F0F0F0""&quot ;)
dirData = Replace(dirData, "<a href=""http://dmoz.org/", "<a href=""webdir.asp?cat=/")
dirData = Replace(dirData, "search?", "websearch.asp?")
dirData = Replace(dirData, "<TR><TD VALIGN=""top"">"" <B>", "<tr><td>""<b>&qu ot;)
dirData = Replace(dirData, "on:</TD>", "on:</td>")
dirData = Replace(dirData, "<TD VALIGN=""top""><SMALL&gt ;", "<td><font size=2>")
dirData = Replace(dirData, "</SMALL></TD></TR>", "</font></td></tr>")
dirData = Replace(dirData, "<TABLE>", "<hr size=1 color=""#000000""><table width=""100%"" align=""center"">")
if searchTerms = "" then
dirData = "<center><b>No Search string specified.</b></center>"
end if
end if
%>



continua...