Classic ASP

S3 List Buckets using an STS Session Token

See more AWS Security Token Service Examples

This is an example showing how to use an STS session token in an Amazon AWS request. This example will list S3 buckets using a previously obtained session token.

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

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

' See Get AWS STS Session Token for sample code to get the session token XML.
set xmlToken = Server.CreateObject("Chilkat.Xml")
success = xmlToken.LoadXmlFile("qa_data/tokens/aws_session_token.xml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( xmlToken.LastErrorText) & "</pre>"
    Response.End
End If

set rest = Server.CreateObject("Chilkat.Rest")

' Connect to the Amazon AWS REST server.
bTls = 1
port = 443
bAutoReconnect = 1
success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect)

' Provide AWS credentials for the REST call.
set authAws = Server.CreateObject("Chilkat.AuthAws")

' The purpose of this example is to show how to use the temporary AccessKeyId, SecretAccessKey, and SessionToken.
authAws.AccessKey = xmlToken.GetChildContent("GetSessionTokenResult|Credentials|AccessKeyId")
authAws.SecretKey = xmlToken.GetChildContent("GetSessionTokenResult|Credentials|SecretAccessKey")
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

success = rest.AddQueryParam("X-Amz-Security-Token",xmlToken.GetChildContent("GetSessionTokenResult|Credentials|SessionToken"))

set sbResponse = Server.CreateObject("Chilkat.StringBuilder")
success = rest.FullRequestNoBodySb("GET","/",sbResponse)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

statusCode = rest.ResponseStatusCode
Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & statusCode) & "</pre>"

set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadSb(sbResponse,1)
Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

If (statusCode <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed.  See error information in the XML.") & "</pre>"
    Response.End
End If


%>
</body>
</html>