<%@ language=VBScript%>
<%
dim objXMLHTTP
URL = "http://news.google.com/news/gnmainlite.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=""/", "href=""http://news.google.com/")
extract = Replace(extract, "href='/", "href='http://news.google.com/")
'Response.Write ""
Response.write " Powered by kysales.com"
Set objXMLHTTP = Nothing
%>