%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
dim docnum
docnum = 101
do while docnum > 111
Response.Write docnum
HTTPObj.Url = "http://www.intels.net/date.asp?songID="docnum
HttpObj.RequestMethod = "GET"
strResult = HTTPObj.GetURL
Response.Write strResult
docnum=docnum + 1
Response.Write "br>"
loop
%>