Classic ASP

HTTP POST x-www-form-urlencoded

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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set http = Server.CreateObject("Chilkat.Http")

jsonStr = "{ some json ... }"

set req = Server.CreateObject("Chilkat.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..

req.HttpVerb = "POST"
req.ContentType = "application/x-www-form-urlencoded"

set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpReq("http://example.com/xyz/connect/report",req,resp)
If (success = 0) 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.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>