(Classic ASP) HTTP POST x-www-form-urlencoded

Demonstrates how to send a simple x-www-form-urlencoded POST.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set http = Server.CreateObject("Chilkat_9_5_0.Http")

jsonStr = "{ some json ... }"

set req = Server.CreateObject("Chilkat_9_5_0.HttpRequest")
'  This query parameter just happens to be named "json" and contains JSON text.
req.AddParam "json",jsonStr

'  We can optionally add more query parameters.
req.AddParam "abc","123"
req.AddParam "xml","<abc>123</abc>"

'  Note: Just because we passed a query param named "json" or "xml" means nothing special.  It's still just
'  a name=value query parameter..

' resp is a Chilkat_9_5_0.HttpResponse
Set resp = http.PostUrlEncoded("http://example.com/xyz/connect/report",req)
If (http.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

If (resp.StatusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Hey, I didn't receive the expected response status code!") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "status code = " & resp.StatusCode) & "</pre>"
End If

'  Could be error text if the status code wasn't what we expected, or could be the response
'  body you're seeking..
responseBody = resp.BodyStr
Response.Write "<pre>" & Server.HTMLEncode( responseBody) & "</pre>"

set fac = Server.CreateObject("Chilkat_9_5_0.FileAccess")
filepath = "some file path"
success = fac.WriteEntireTextFile(filepath,responseBody,"utf-8",0)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( fac.LastErrorText) & "</pre>"
End If


%>
</body>
</html>