<%@ 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, "") = 0 Then finish = 0 else finish = InStr(objXMLHTTP.responsetext, "") 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, "", "Powered by kysales.com") whole = Len(extract) newwhole = whole - 20 extract = Left(extract, newwhole) extract = Replace(extract, "height=2200", "") extract = Replace(extract, "align=center", "") 'Response.Write "" Response.Write extract 'objXMLHTTP.responseText 'Response.Write "" Set objXMLHTTP = Nothing %>