string = GetWebPage( HTTPAddress
)
Example Usage:
ASP Source Code:<% Dim strPage ' get the html source of the asp emporium home page and store it ' into the variable strPage. strPage = GetWebPage( "http://www.aspemporium.com/aspemporium/index.asp" ) %>
<%
Private Function GetWebPage(byVal address)
Dim Fetch
On Error Resume Next
Set Fetch = GetObject("java:HTTPFetch")
If Err Then
Err.Clear
GetWebPage = Null
Exit Function
End If
On Error GoTo 0
GetWebPage = Trim( Fetch.GetURL(address) )
Set Fetch = Nothing
End Function
%>