(Classic ASP) Wasabi List Buckets

See more Wasabi Examples

Demonstrates how to list Wasabi buckets.

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>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = Server.CreateObject("Chilkat.Http")

' Insert your access key here:
http.AwsAccessKey = "access-key"

' Insert your secret key here:
http.AwsSecretKey = "secret-key"

http.AwsEndpoint = "s3.wasabisys.com"

bucketsXml = http.S3_ListBuckets()

If (http.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadXml(bucketsXml)
Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

' Use this online tool to generate parsing code from sample XML: 
' Generate Parsing Code from XML

' Sample output:

' <?xml version="1.0" encoding="UTF-8"?>
' <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
'     <Owner>
'         <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
'         <DisplayName>admin</DisplayName>
'     </Owner>
'     <Buckets>
'         <Bucket>
'             <Name>chilkat</Name>
'             <CreationDate>2021-10-26T12:39:44.000Z</CreationDate>
'         </Bucket>
'         <Bucket>
'             <Name>chilkat-wasabi-testbucket</Name>
'             <CreationDate>2021-10-27T21:07:40.000Z</CreationDate>
'         </Bucket>
'     </Buckets>
' </ListAllMyBucketsResult>

ListAllMyBucketsResult_xmlns = xml.GetAttrValue("xmlns")
ID = xml.GetChildContent("Owner|ID")
DisplayName = xml.GetChildContent("Owner|DisplayName")
i = 0
count_i = xml.NumChildrenHavingTag("Buckets|Bucket")
Do While i < count_i
    xml.I = i
    Name = xml.GetChildContent("Buckets|Bucket[i]|Name")
    CreationDate = xml.GetChildContent("Buckets|Bucket[i]|CreationDate")
    i = i + 1
Loop

%>
</body>
</html>