Classic ASP
HTTP Response Inspection

Demonstrates how to inspect the HTTP response, including the status code, status text, and response headers, for Chilkat methods that don't use an HttpResponse object.
Chilkat Classic ASP Downloads

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

' Returns the contents of the response body.
jsonText = http.QuickGetStr("https://chilkatsoft.com/helloWorld.json")

' Examine the response status code.
Response.Write "<pre>" & Server.HTMLEncode( "response status code: " & http.LastStatus) & "</pre>"

' Examine the response status text
Response.Write "<pre>" & Server.HTMLEncode( "response status text: " & http.LastStatusText) & "</pre>"

' Examine the full response header.
Response.Write "<pre>" & Server.HTMLEncode( "response header:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( http.LastResponseHeader) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"

' Examine the response content-type
Response.Write "<pre>" & Server.HTMLEncode( "LastContentType = " & http.LastContentType) & "</pre>"

' Examine the response last-mod date
Response.Write "<pre>" & Server.HTMLEncode( "LastModDate = " & http.LastModDate) & "</pre>"

' Load the response header into a Chilkat MIME object to access its fields individually.
set mime = Server.CreateObject("Chilkat.Mime")
success = mime.LoadMime(http.LastResponseHeader)

numHeaders = mime.NumHeaderFields
i = 0
Response.Write "<pre>" & Server.HTMLEncode( "---- MIME Headers ----") & "</pre>"
Do While i < numHeaders
    Response.Write "<pre>" & Server.HTMLEncode( "name:  " & mime.GetHeaderFieldName(i)) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "value: " & mime.GetHeaderFieldValue(i)) & "</pre>"
    i = i + 1
Loop
Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"

' Get a header field value by name:
Response.Write "<pre>" & Server.HTMLEncode( "ETag: " & mime.GetHeaderField("ETag")) & "</pre>"

' Output:

' response status code: 200
' response status text: OK
' response header:
' Content-Type: application/json
' Last-Modified: Sun, 20 Aug 2023 11:36:27 GMT
' Accept-Ranges: bytes
' ETag: "34c27f8e5ad3d91:0"
' Server: Microsoft-IIS/10.0
' X-Powered-By: ASP.NET
' Date: Sat, 30 Aug 2025 14:38:13 GMT
' Content-Length: 22
' ----
' LastContentType = application/json
' LastModDate = 2023-08-20
' ---- MIME Headers ----
' name:  Content-Type
' value: application/json
' name:  Last-Modified
' value: Sun, 20 Aug 2023 11:36:27 GMT
' name:  Accept-Ranges
' value: bytes
' name:  ETag
' value: "34c27f8e5ad3d91:0"
' name:  Server
' value: Microsoft-IIS/10.0
' name:  X-Powered-By
' value: ASP.NET
' name:  Date
' value: Sat, 30 Aug 2025 14:38:13 GMT
' name:  Content-Length
' value: 22
' ----
' ETag: "34c27f8e5ad3d91:0"

%>
</body>
</html>