Classic ASP
Amazon SP-API Upload Feed

Upload a feed document to the feed previously created.
Chilkat Classic ASP Downloads

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.

' Load your own feed data file.
set sbRequestBody = Server.CreateObject("Chilkat.StringBuilder")
success = sbRequestBody.LoadFile("C:/AAWorkarea/test-despatch-upload.txt","utf-8")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load test-despatch-upload.txt.") & "</pre>"
    Response.End
End If

' The SP-API Create Feed example returned JSON such as this.

' {
'   "feedDocumentId": "amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ",
'   "url": "https://tortuga-prod-eu.s3-eu-west-1.amazonaws.com/%2FNinetyDays/amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Date=20230222T014944Z&X-Amz-SignedHeaders=content-type%3Bhost&X-Amz-Expires=300&X-Amz-Credential=XXXXXXXXXXXXXXXXX%2F20230222%2Feu-west-1%2Fs3%2Faws4_request&X-Amz-Signature=XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
' }

' Load the JSON feed file created by this example:  SP-API Create Feed
set jsonFeedInfo = Server.CreateObject("Chilkat.JsonObject")
success = jsonFeedInfo.LoadFile("qa_data/json/sp_api_feed_upload_info.json")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( jsonFeedInfo.LastErrorText) & "</pre>"
    Response.End
End If

' Get the pre-signed URL
url = jsonFeedInfo.StringOf("url")

' We can use the Chilkat HTTP object because the URL is pre-signed.
' We don't need to add our own AWS authentication because it's already in the pre-signed URL,
' which is only valid for short amount of time.
set http = Server.CreateObject("Chilkat.Http")

' NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpSb("PUT",url,sbRequestBody,"utf-8","text/tab-separated-values; charset=UTF-8",resp)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "status code = " & resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "status text = " & resp.StatusText) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "response body:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"

%>
</body>
</html>