<%

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

%>