如何远程读取数据库页面？

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