<%
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://194.8.136.102/iisdev/asptear/formpost.asp", Request_POST, "test=wille", "", "")

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
%>