|
|
<%@ language=VBScript%><%
dim objXMLHTTP
URL = "http://news.google.com/news/gnusaleftnav.html"
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", URL, false
objXMLHTTP.Send
If InStr(objXMLHTTP.responsetext, "") = 0 Then
start = 0
else
start = InStr(objXMLHTTP.responsetext, "")
end if
If InStr(objXMLHTTP.responsetext, "The selection and placement of stories on this page were determined automatically by a computer program.") = 0 Then
finish = 0
else
finish = InStr(objXMLHTTP.responsetext, "The selection and placement of stories on this page were determined automatically by a computer program.")
amount = finish - start
extract = Mid(objXMLHTTP.responsetext,start,amount)
end if
extract = Replace(extract, "src=/", "src=http://news.google.com/")
extract = Replace(extract, "href=/", "href=http://news.google.com/")
extract = Replace(extract, "href=""/url", "href=""http://news.google.com/url")
extract = Replace(extract, "href=""/news", "href=""http://news.google.com/news")
'Response.Write ""
Response.write " Powered by KySales"
Set objXMLHTTP = Nothing
%> |