You could do a screen scrape and get the data using the XMLHTTP object. This would put all of the html into a variable. You will now have to manipulate that variable to get the exact data that you are looking for
Something like this
Code:
<%
Dim xml
Dim page
Dim LinkStart
Dim LinkEnd
Dim hyperLink
Dim intCurrent
Dim intUsed
' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Opens the connection to the server.
xml.Open "GET", "http://www.somewebsite.com/", False
' Actually Sends the request and returns the data:
xml.Send
'fills the variable
page = xml.responseText
Set xml = Nothing 'removes the object from server memory
'now all this is left is to parse the variable to get the links out of it
LinkStart = "<a "
LinkEnd = "</a>"
Do until y = true
If InStr(1,page,LinkStart) <> 0 Then 'ensure there is a link to grab from the page
intCurrent = Len(page)
intUsed = InStr(1,page,LinkEnd)+4
If (InStr(1,page,LinkStart)) < intUsed Then
hyperLink = mid(page, InStr(1,page,LinkStart), intUsed - InStr(1,page,LinkStart)) & "<br>"
page = Right(page, (intCurrent-intUsed))
Else 'just in case someone has placed an inadvertant </a> in the page
page = Right(page, (intCurrent-intUsed))
End If
Response.Write hyperLink & "<br>" & vbCrLF
Else
y = true
End If
Loop
%>
Before you post, read our: 
