<html>
<body>
<form>
<%
dim objHTTP
dim objXML
dim szGetString
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
If Request("asins") <> "" Then
Select Case Request("fmt")
Case "isbn"
rgAsins = Split(Request("asins"),",")
Response.write("ISBNs:<textarea cols=60 rows=10 style='width:90%;'>")
For i = 0 to (UBound(rgAsins)-1)
szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=kokogiak-20&dev-t=[Insert Developer's Token Here]&AsinSearch=" & rgAsins(i) & "&type=heavy&f=xml"
ListItem szGetString, i
Next
Case "upc"
rgAsins = Split(Request("asins"),",")
Response.write("UPCs:<textarea cols=60 rows=10 style='width:90%;'>")
For i = 0 to (UBound(rgAsins)-1)
szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=kokogiak-20&dev-t=[Insert Developer's Token Here]&AsinSearch=" & rgAsins(i) & "&type=heavy&f=xml"
ListItem szGetString, i
Next
Case "asin"
rgAsins = Split(Request("asins"),",")
Response.write("ASINs:<textarea cols=60 rows=10 style='width:90%;'>")
For i = 0 to (UBound(rgAsins)-2)
Response.write(rgAsins(i) & ",")
Next
Response.write(rgAsins(UBound(rgAsins)-1))
Case "html"
rgAsins = Split(Request("asins"),",")
For i = 0 to (UBound(rgAsins)-1)
szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=kokogiak-20&dev-t=[Insert Developer's Token Here]&AsinSearch=" & rgAsins(i) & "&type=heavy&f=xml"
ListItem2 szGetString, i
Next
Response.write("<p>Copy & paste HTML below:<br><textarea cols=60 rows=10 style='width:90%;'>")
For i = 0 to (UBound(rgAsins)-1)
szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=kokogiak-20&dev-t=[Insert Developer's Token Here]&AsinSearch=" & rgAsins(i) & "&type=heavy&f=xml"
ListItem2 szGetString, i
Next
End Select
End if
Sub ListItem(szGetString, i)
objHTTP.open "GET", szGetString, false
objHTTP.Send
Set objXML = objHTTP.ResponseXML
set o15 = objXML.getElementsByTagName("Details").item(0)
set o16 = o15.childNodes
For j = 0 to o16.length-1
Select Case o16.item(j).nodeName
Case "Asin" szAsin = o16.item(j).text
Case "ProductName" szProductName = o16.item(j).text
Case "Isbn" szIsbn = o16.item(j).text
Case "Upc" szUpc = o16.item(j).text
Case "ImageUrlSmall" szImageUrlSmall = o16.item(j).text
End Select
Next
If i <> UBound(rgAsins)-1 then
szDelim = ","
Else
szDelim = ""
End if
If ((szIsbn <> "") AND (Request("fmt") = "isbn")) Then
Response.write (szIsbn & szDelim)
Elseif ((szUpc <> "") AND (Request("fmt") = "upc")) Then
Response.write (szUpc & szDelim)
End if
''Response.write ("</td></tr></table><hr size=1 color=#cccccc noshade=true width=670 >")
End Sub
Sub ListItem2(szGetString, i)
objHTTP.open "GET", szGetString, false
objHTTP.Send
Set objXML = objHTTP.ResponseXML
set o15 = objXML.getElementsByTagName("Details").item(0)
set o16 = o15.childNodes
For j = 0 to o16.length-1
Select Case o16.item(j).nodeName
Case "Asin" szAsin = o16.item(j).text
Case "ProductName" szProductName = o16.item(j).text
Case "Isbn" szIsbn = o16.item(j).text
Case "Upc" szUpc = o16.item(j).text
Case "ImageUrlSmall" szImageUrlSmall = o16.item(j).text
End Select
Next
If Request("domain") = "a" Then
szUrlPre = "http://www.amazon.com/exec/obidos/ASIN/"
szUrlPost = "/" & Request("assoc")
Else
szUrlPre = "http://www.kokogiak.com/amazon/detpage.asp?sb=o&asin="
szUrlPost = ""
End if
If Request("sep") = "c" Then
If i >= 0 Then
If i <> UBound(rgAsins)-1 then
szSep = ", "
Else
szSep = ""
End if
End if
Else
If i <> UBound(rgAsins)-1 then
szSep = "<li> " & vbCrLf
End if
If i = 0 Then
Response.write("<li> ")
End if
End if
If Request("disImg") = "true" Then
szImg = "<a href=" & Chr(34) & szUrlPre & szAsin & szUrlPost & Chr(34) & "><img border=0 src=" & Chr(34) & szImageUrlSmall & Chr(34) & " align=absbottom></a> "
Else
szImg = ""
End if
Response.write(szImg & "<a href=" & Chr(34) & szUrlPre & szAsin & szUrlPost & Chr(34) & ">" & szProductName & "</a>" & szSep)
End Sub
%>
</textarea>
</form>
</body>
</html>