Problemmer med ASPtear

Jeg sidder og leger lidt med ASPtear komponenten men kan ikke få den til at virke på ret mange sider. Hvorfor virker følgende ikke.

<%
Const Request_POST = 1
Const Request_GET = 2

Set xobj = CreateObject("SOFTWING.ASPtear")
Response.ContentType = "text/html"
   
On Error Resume Next
' URL, action, payload, username, password
strRetval = xobj.Retrieve("http://www.danbolig.dk", Request_GET, "", "", "")

If Err.Number <> 0 Then
    Response.Write "<b>"
    If Err.Number >= 400 Then
        Response.Write "Server returned error: " & Err.Number
    Else
        Response.Write "Component/WinInet error: " & Err.Description
    End If
    Response.Write "</b>"
    Response.End
End If

Response.Write strRetval
%>

Den virker fint på bt og jubii