AspTear Component



formpost.asp

<PRE>
<%
Response.Write Request.ServerVariables("ALL_HTTP")
%>
</PRE>
<%
Response.Write Request.Form("test")
%>

<form method=post action="">
<input type=text name="test">
<input type=submit>
</form>

testretrieve.asp

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