% Function GetURL (URL) Dim myGet, strRetval set myGet = Server.CreateObject("Getter.Get") myget.RequestTimeOut = 60 ' seconds 'myGet.Proxie = "" ' proxie addres if needed On Error Resume Next strRetval = myget.OpenURL (cstr(URL)) If Err.Number <> 0 Then GetUrl = "Component error: " & err.Number & " " & Err.Description else GetURL = strRetval End If set myGet = nothing End function %>
|
|
|||
|
|||
|
|||
|
|||