(Classic ASP) Manually Follow HTTP Redirects

Demonstrates how to manually follow redirects for an HTTP GET.

Note: This example requires Chilkat v11.0.0 or greater.

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>
<%
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

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

' The FollowRedirects property controls whether redirects
' are automatically followed.  The default behavior is to
' automatically follow redirects.

' Explicitly set FollowRedirects so that redirects are NOT automatically taken:
http.FollowRedirects = 0

set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpNoBody("GET","http://yandex.ru/",resp)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

status = resp.StatusCode
Response.Write "<pre>" & Server.HTMLEncode( "HTTP Response Status: " & status) & "</pre>"

' The FinalRedirectUrl property will contain the redirect URL
' If FollowRedirects was equal to 1, then all of the 
' intermediate redirects (if any) would be followed until
' there were no more redirects.  However, because 
' FollowRedirects is not 1, FinalRedirectUrl contains
' the next redirect URL.

loopCount = 0

Do While (status = 302)

    Response.Write "<pre>" & Server.HTMLEncode( "Redirect URL: " & http.FinalRedirectUrl) & "</pre>"

    nextUrl = http.FinalRedirectUrl
    success = http.HttpNoBody("GET",nextUrl,resp)
    If (success = 0) Then
        Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
        Response.End
    End If

    status = resp.StatusCode
    Response.Write "<pre>" & Server.HTMLEncode( "HTTP Response Status: " & status) & "</pre>"

    ' For safety, prevent infinite loops by
    ' keeping a loopCount and only allows following a max 
    ' of 10 redirects:
    loopCount = loopCount + 1
    If (loopCount > 10) Then
        Response.Write "<pre>" & Server.HTMLEncode( "Too many redirects.") & "</pre>"
        Response.End
    End If

Loop

%>
</body>
</html>