Asptear — webForum

pirroMedlem sedan aug. 2001226 inlägg

21 maj 2002 13:08#1

VArför timas jag av med min asptear? har installerat gratis ver....

[red]
<%
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
%>
[/red]