
	ASP Shopping Cart, Forum & BBS - all for $20 from CodeToad Plus!

Home || ASP | ASP.Net | C++/C# | DHTML | HTML | Java | Javascript | Perl | VB | XML || CodeToad Plus! || Forums || RAM

Search Site:

Amazon Lite Web Service

Article by:

kokogiak.com (9/12/2002)

	Add to Favourites
	Tell a friend

Sponsored by:

Neil Matthews Hypnotherapy, Wilmslow

Summary:

A complete XML web service allowing you to offer complete Amazon searches and disaply results on your site. A fantastic introduction to XML Web Services.

Viewed: 16310 times

Rating (8 votes):

4 out of 5

Rate this Article

Read Comments

Post Comments

Amazon Lite Web Service

View Online Demo

Amazon Light is an Amazon.com Webservices Application.

This means that it is a web-based application built on Amazon.com's XML API, built and hosted by Kokogiak Media. Or, more basically, Amazon.com is providing the data via XML, and Amazon Light is presenting it in a new way.

Amazon Light was laid out to be simple and efficient - since, frankly speaking, shopping at Amazon.com can often be anything but simple or efficient.

Through Amazon.com's Webservices API. Amazon.com has opened up their catalog via XML over HTTP and the SOAP protocol. Amazon Light is done through ASP and VBScript, using XMLHTTP and ResponseXML objects to retrieve Amazon.com's XML over HTTP on IIS5.0. That's a mouthful, and ugly to read as well, so here's what happens -> the IIS server has an object that allows one to fetch a document to the server over the web, like a browser fetching an HTML document to your desktop. In this case, we're fetching a special XML document provided by Amazon.com, and treating it much like a small database, grabbing the important information and putting it all together on the server to serve up as HTML to the end user. If that's still not helpful, here's the code for the home page, results page, and the details page - basically the bulk of Amazon.com served through three files.

The entire work of the Service is done by three files. Firstly, the home page default.asp :

Select All Code

<%
szSchType = Request("typ")
szSchMode = Request("mod")
szTerm = Request("term")
szTerm = Replace(szTerm,Chr(34),"'")
%><html>
<head>
<title>Amazon Light</title>
</head>
<body bgcolor="#ffffff" link="#222222" alink="#000066" vlink="#666666" text="#000000" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0>
<table border=0 cellspacing=0 cellpadding=0 width=100% ><tr bgcolor="#efeecf"><td> </td></table><br>
<center>
<font face="arial,helvetica" size=2>
<img src="amzn-logo-b.gif" alt="Amazon" width="341" height="40" border="0" hspace="0" vspace="4"><br>
<table border=0 cellspacing=0 cellpadding=0 width=620>
<tr bgcolor="#efeecf"><td bgcolor="#ffffff" width="170"><img src="l.gif" border=0 height=20 width=170><br></td>
<%

Select Case szSchType

    Case "elec"
    szTspan = 4 %>

<td <% if szSchMode="electronics" Then%>bgcolor=#0000cc<% End if %> align=center width=113 onclick="document.location=('default.asp?mod=electronics&typ=elec&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="electronics" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Electronics</b></font><% else %><a href="default.asp?mod=electronics&typ=elec" onclick="document.location=('default.asp?mod=electronics&typ=elec&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Electronics</font></a><% End if %>
<td <% if szSchMode="photo" Then%>bgcolor=#0000cc<% End if %> align=center width=113 onclick="document.location=('default.asp?mod=photo&typ=elec&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="photo" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Camera & Photo</b></font><% else %><a href="default.asp?mod=photo&typ=elec" onclick="document.location=('default.asp?mod=photo&typ=elec&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Camera & Photo</font></a><% End if %></td>
<td <% if szSchMode="software" Then%>bgcolor=#0000cc<% End if %> align=center width=112 onclick="document.location=('default.asp?mod=software&typ=elec&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="software" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Software</b></font><% else %><a href="default.asp?mod=software&typ=elec" onclick="document.location=('default.asp?mod=software&typ=elec&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Software</font></a><% End if %></td>
<td <% if szSchMode="pc-hardware" Then%>bgcolor=#0000cc<% else %><% End if %> align=center width=112 onclick="document.location=('default.asp?mod=pc-hardware&typ=elec&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="pc-hardware" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Computers</b></font><% else %><a href="default.asp?mod=pc-hardware&typ=elec" onclick="document.location=('default.asp?mod=pc-hardware&typ=elec&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Computers</font></a><% End if %></td>
<td><img width=1 height=1 alt=""></td></tr>

<% Case "game"
    szTspan = 3 %>

<td <% if szSchMode="toys" Then%>bgcolor=#990099<% End if %> align=center width=150 onclick="document.location=('default.asp?mod=toys&typ=game&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="toys" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Toys</b></font><% else %><a href="default.asp?mod=toys&typ=game" onclick="document.location=('default.asp?mod=toys&typ=game&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Toys</font></a><% End if %></td>
<td <% if szSchMode="videogames" Then%>bgcolor=#990099<% End if %> align=center width=150 onclick="document.location=('default.asp?mod=videogames&typ=game&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="videogames" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Videogames</b></font><% else %><a href="default.asp?mod=videogames&typ=game" onclick="document.location=('default.asp?mod=videogames&typ=game&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Videogames</font></a><% End if %></td>
<td <% if szSchMode="baby" Then%>bgcolor=#990099<% End if %> align=center width=150 onclick="document.location=('default.asp?mod=baby&typ=game&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="baby" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Baby</b></font><% else %><a href="default.asp?mod=baby&typ=game" onclick="document.location=('default.asp?mod=baby&typ=game&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Baby</font></a><% End if %></td>
<td><img width=1 height=1 alt=""></td></tr>


<% Case "home"
    szTspan = 3 %>

<td <% if szSchMode="kitchen" Then%>bgcolor=#990000<% End if %> align=center width=150 onclick="document.location=('default.asp?mod=kitchen&typ=home&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="kitchen" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Kitchen & Housewares</b></font><% else %><a href="default.asp?mod=kitchen&typ=home" onclick="document.location=('default.asp?mod=kitchen&typ=home&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Kitchen & Housewares</font></a><% End if %></td>
<td <% if szSchMode="garden" Then%>bgcolor=#990000<% End if %> align=center width=150 onclick="document.location=('default.asp?mod=garden&typ=home&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="garden" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Outdoor Living</b></font><% else %><a href="default.asp?mod=garden&typ=home" onclick="document.location=('default.asp?mod=garden&typ=home&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Outdoor Living</font></a><% End if %></td>
<td <% if szSchMode="universal" Then%>bgcolor=#990000<% End if %> align=center width=150 onclick="document.location=('default.asp?mod=universal&typ=home&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="universal" Then%><font face='arial,helvetica' color=#ffffff size=-1> <b>Tools & Hardware</b> </font><% else %> <a href="default.asp?mod=universal&typ=home" onclick="document.location=('default.asp?mod=universal&typ=home&term='+document.forms[0].elements[0].value);return false;"><font face='arial,helvetica' size=-1 color="#000000">Tools & Hardware</font></a> <% End if %></td>
<td><img width=1 height=1 alt=""></td></tr>

<% Case Else
 szTspan = 4 %>

<td <% if (szSchMode="books" OR szSchMode="") Then%>bgcolor=#006699<% End if %> align=center width=112 onclick="document.location=('default.asp?mod=books&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if (szSchMode="books" OR szSchMode="") Then%><font color=#ffffff size=-1><b>Books</b></font><% else %><a href="default.asp?mod=books" onclick="document.location=('default.asp?mod=books&term='+document.forms[0].elements[0].value);return false;"><font size=-1 color="#000000">Books</font></a><% End if %></td>
<td <% if szSchMode="music" Then%>bgcolor=#006699<% End if %> align=center width=112 onclick="document.location=('default.asp?mod=music&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="music" Then%><font color=#ffffff size=-1><b>Music</b></font><% else %><a href="default.asp?mod=music" onclick="document.location=('default.asp?mod=music&term='+document.forms[0].elements[0].value);return false;"><font size=-1 color="#000000">Music</font></a><% End if %></td>
<td <% if szSchMode="dvd" Then%>bgcolor=#006699<% End if %> align=center width=112 onclick="document.location=('default.asp?mod=dvd&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="dvd" Then%><font color=#ffffff size=-1><b>DVD</b></font><% else %><a href="default.asp?mod=dvd" onclick="document.location=('default.asp?mod=dvd&term='+document.forms[0].elements[0].value);return false;"><font size=-1 color="#000000">DVD</font></a><% End if %></td>
<td <% if szSchMode="vhs" Then%>bgcolor=#006699<% End if %> align=center width=112 onclick="document.location=('default.asp?mod=vhs&term='+document.forms[0].elements[0].value);return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="vhs" Then%><font color=#ffffff size=-1><b>Video</b></font><% else %><a href="default.asp?mod=vhs" onclick="document.location=('default.asp?mod=vhs&term='+document.forms[0].elements[0].value);return false;"><font size=-1 color="#000000">Video</font></a><% End if %></td>
<td><img width=1 height=1 alt=""></td></tr>

<% End Select %>
</tr>

<tr valign=top>
<td bgcolor="#efeecf" align="center">
<font face="arial,helvetica" size=2>
<form action="results.asp">
    <table border=0 cellpadding=0 cellspacing=1>
    <tr><td align=center><font size=1 style="font-size:5px;"> <br></font></td></tr>
    <tr><td align=center><font face="arial,helvetica" size=-1><% if szSchType<>"" Then %><a href="default.asp?mod=books" onclick="document.location=('default.asp?mod=books&term='+document.forms[0].elements[0].value);return false;"><font color="#000000">Books, Music & Video</font></a><% Else %><b><font color="#006699">Books, Music & Video</font><% End if %><br></b></td></tr>
    <tr><td align=center><font face="arial,helvetica" size=-1><% if szSchType<>"elec" Then %><a href="default.asp?typ=elec&mod=electronics" onclick="document.location=('default.asp?typ=elec&mod=electronics&term='+document.forms[0].elements[0].value);return false;"><font color="#000000">Electronics & Photo</font></a><% Else %><b><font color="#0000cc">Electronics & Photo</b></font><% End if %><br></td></tr>
    <tr><td align=center><font face="arial,helvetica" size=-1><% if szSchType<>"game" Then %><a href="default.asp?typ=game&mod=toys" onclick="document.location=('default.asp?typ=game&mod=toys&term='+document.forms[0].elements[0].value);return false;"><font color="#000000">Toys & Videogames</font></a><% Else %><b><font color="#990099">Toys & Videogames</b></font><% End if %><br></td></tr>
    <tr><td align=center><font face="arial,helvetica" size=-1><% if szSchType<>"home" Then %><a href="default.asp?typ=home&mod=kitchen" onclick="document.location=('default.asp?typ=home&mod=kitchen&term='+document.forms[0].elements[0].value);return false;"><font color="#00000">Home & Garden</font></a><% Else %><b><font color="#990000">Home & Garden</font><% End if %><br></b></td></tr>
    <tr><td align=center><font size=1 style="font-size:5px;"> <br></font></td></tr>
    </table>
    <font face="arial,helvetica" size=-1><a href="advsearch.asp" onclick="document.location=('advsearch.asp?term='+document.forms[0].elements[0].value);return false;"><font color="#00000">Advanced Search</font></a><br>
</td>
<td align=center colspan=<% =szTspan %>>
    <font size=+1> <br></font>
    <input maxLength=256 size=40 name="term" value="<% =szTerm %>"><br><font face="arial,helvetica" size=-1>
    <input type=submit style='color:black;background-color:#cccccc;font-style:arial;' value="Amazon Search" name=AZSch>
    <input type=hidden value="<% =szSchMode %>" name=schMod>
    <input type=hidden value="<% =szSchType %>" name=typ>
</td>
<td rowspan=2 bgcolor=#efeecf><img width=1 height=1 alt=""></td>
</tr>
<tr><td bgcolor="#efeecf"><img width=1 height=1 alt=""></td><td colspan=<% =szTspan %> bgcolor=#efeecf><img width=1 height=1 alt=""></td>
</table>
</form>
<p><br>
<a href="about.asp">Hey, what happened to the Google-ish Layout?!</a><p>
<font size=1 style="font-size:11px;">by <a href="/default.asp">Kokogiak Media</a> -- Read more about <a href="about.asp">Amazon Light</a>, an Amazon.com Webservices App</font>
<br><br>
<b>At Amazon.com Proper</b><br>
<table border=0 cellspacing=0 cellpadding=0 width=620 ><tr bgcolor="#efeecf"><td align="center"><font face="arial,helvetica" size=2>
<a href="http://www.amazon.com/exec/obidos/tg/stores/recs/instant-recs/-/recs">Recommendations</a> -
<a href="http://www.amazon.com/exec/obidos/tg/stores/static/-/gateway/international-gateway">International</a> -
<a href="http://www.amazon.com/exec/obidos/account-access-login">Your Account</a> -
<a href="http://www.amazon.com/exec/obidos/wishlist">Wish List</a> -
<a href="http://www.amazon.com/exec/obidos/tg/browse/-/909656">Today's Deals</a> -
<a href="http://www.amazon.com/exec/obidos/tg/browse/-/508510">Help</a>
 </td></table></body></html>

Next we need a page to display the results (results.asp):

Select All Code

<%
On Error Resume Next
If (Request("schMod") <> "") Then
    szSchMode = Request("schMod")
Else
    szSchMode = "books"
End if

If (Request("term") <> "") Then
    szTerm = Replace(Request("term")," ","+")
Else
    szTerm = "Whittier Alaska"
End if

szSchType = Request("typ")

If (Request("advSearch") <> "") Then
    szAdvSearch = Request("advSearch")
    rgSp = Split(szSchMode,"|")
    szSchMode = rgSp(0)
    szSchType = rgSp(1)
End if

If (Request("page") <> "") Then
    szPage = Request("page")
Else
    szPage = 1
End if
%><html>
<head>
<title>Amazon Light - Search Results</title>
</head>
<body bgcolor="#ffffff" link="#222222" alink="#000066" vlink="#666666" text="#000000" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0>
<center><table border=0 cellspacing=0 cellpadding=0 width=100% ><tr bgcolor="#efeecf"><td> </td></table></center>
<font face="arial,helvetica" size=2>
<form action="results.asp">
<table cellspacing=0 cellpadding=0 width=650 border=0>
<tr><td rowspan=2>  </td>
<td width=148 rowspan=2>
<font face="arial,helvetica" size=1>
<nobr>In association with</nobr<><br>
<a href="default.asp"><img src="amzn-logo-sm.gif" alt="Amazon" width="148" height="43" border=0 hspace="0" vspace="0" align=left></a>  </td>
<td align=left><font face="arial,helvetica" size=1><nobr><a href="advsearch.asp">Advanced Search</a> - <a href="http://www.amazon.com" target="_new">Amazon.com Proper</a></nobr><br></font>
</td>
</tr>
<tr valign=bottom>
<td>
    <input maxLength=256 size=40 name="term" value="<% =szTerm %>"> <input type=submit value="Amazon Search" name=AZSch>
    <input type=hidden value="<% =szSchMode %>" name=schMod><input type=hidden value="<% =szSchType %>" name=typ></form>
</td>
</tr>
</table>


<center>
<table cellspacing=0 cellpadding=0 border=0>
    <tr><td><img src="rl.gif" border=0 height=20 width=24></td>

<%

Select Case szSchType

    Case "elec"
        szBgCol="0000cc" %>

<td bgcolor=#<% if szSchMode="electronics" Then%>0000cc<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=electronics&typ=elec&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="electronics" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Electronics</b></font><% else %><a href="results.asp?schMod=electronics&typ=elec" onclick="document.location=('results.asp?schMod=electronics&typ=elec&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Electronics</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="photo" Then%>0000cc<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=photo&typ=elec&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="photo" Then%><font face='arial,helvetica' color=#ffffff size=-1> <b>Camera & Photo</b> </font><% else %> <a href="results.asp?schMod=photo&typ=elec" onclick="document.location=('results.asp?schMod=photo&typ=elec&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Camera & Photo</font></a> <% End if %></td>
<td bgcolor=#<% if szSchMode="software" Then%>0000cc<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=software&typ=elec&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="software" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Software</b></font><% else %><a href="results.asp?schMod=software&typ=elec" onclick="document.location=('results.asp?schMod=software&typ=elec&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Software</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="pc-hardware" Then%>0000cc<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=pc-hardware&typ=elec&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="pc-hardware" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Computers</b></font><% else %><a href="results.asp?schMod=pc-hardware&typ=elec" onclick="document.location=('results.asp?schMod=pc-hardware&typ=elec&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Computers</font></a><% End if %></td>

<% Case "game"
    szBgCol="990099" %>

<td bgcolor=#<% if szSchMode="toys" Then%>990099<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=toys&typ=game&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="toys" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Toys</b></font><% else %><a href="results.asp?schMod=toys&typ=game" onclick="document.location=('results.asp?schMod=toys&typ=game&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Toys</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="videogames" Then%>990099<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=videogames&typ=game&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="videogames" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Videogames</b></font><% else %><a href="results.asp?schMod=videogames&typ=game" onclick="document.location=('results.asp?schMod=videogames&typ=game&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Videogames</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="baby" Then%>990099<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=baby&typ=game&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="baby" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Baby</b></font><% else %><a href="results.asp?schMod=baby&typ=game" onclick="document.location=('results.asp?schMod=baby&typ=game&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Baby</font></a><% End if %></td>

<% Case "home"
    szBgCol="990000" %>

<td bgcolor=#<% if szSchMode="kitchen" Then%>990000<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=kitchen&typ=home&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="kitchen" Then%><font face='arial,helvetica' color=#ffffff size=-1><b> Kitchen & Housewares </b></font><% else %> <a href="results.asp?schMod=kitchen&typ=home" onclick="document.location=('results.asp?schMod=kitchen&typ=home&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Kitchen & Housewares</font></a> <% End if %></td>
<td bgcolor=#<% if szSchMode="garden" Then%>990000<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=garden&typ=home&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="garden" Then%><font face='arial,helvetica' color=#ffffff size=-1><b>Outdoor Living</b></font><% else %><a href="results.asp?schMod=garden&typ=home" onclick="document.location=('results.asp?schMod=garden&typ=home&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Outdoor Living</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="universal" Then%>990000<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=universal&typ=home&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="universal" Then%><font face='arial,helvetica' color=#ffffff size=-1> <b>Tools & Hardware</b> </font><% else %> <a href="results.asp?schMod=universal&typ=home" onclick="document.location=('results.asp?schMod=universal&typ=home&term=<% =szTerm %>');return false;"><font face='arial,helvetica' size=-1 color="#000000">Tools & Hardware</font></a> <% End if %></td>

<% Case Else
    szBgCol="006699" %>

<td bgcolor=#<% if (szSchMode="books" OR szSchMode="") Then%>006699<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=books&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if (szSchMode="books" OR szSchMode="") Then%><font color=#ffffff size=-1><b>Books</b></font><% else %><a href="results.asp?schMod=books" onclick="document.location=('results.asp?schMod=books&term=<% =szTerm %>');return false;"><font size=-1 color="#000000">Books</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="music" Then%>006699<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=music&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="music" Then%><font color=#ffffff size=-1><b>Music</b></font><% else %><a href="results.asp?schMod=music" onclick="document.location=('results.asp?schMod=music&term=<% =szTerm %>');return false;"><font size=-1 color="#000000">Music</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="dvd" Then%>006699<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=dvd&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="dvd" Then%><font color=#ffffff size=-1><b>DVD</b></font><% else %><a href="results.asp?schMod=dvd" onclick="document.location=('results.asp?schMod=dvd&term=<% =szTerm %>');return false;"><font size=-1 color="#000000">DVD</font></a><% End if %></td>
<td bgcolor=#<% if szSchMode="vhs" Then%>006699<% else %>eeeecc<% End if %> align=center width=100 onclick="document.location=('results.asp?schMod=vhs&term=<% =szTerm %>');return false;" style="font-family:arial;cursor:hand;"><% if szSchMode="vhs" Then%><font color=#ffffff size=-1><b>Video</b></font><% else %><a href="results.asp?schMod=vhs" onclick="document.location=('results.asp?schMod=vhs&term=<% =szTerm %>');return false;"><font size=-1 color="#000000">Video</font></a><% End if %></td>

<% End Select %>

<td><img src="rr.gif" border=0 height=20 width=24></td>
</tr></table>

<%

dim objHTTP
dim objXML
dim szGetString

set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

Select Case szAdvSearch
    Case "1"
        szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=codetoad-20&dev-t=D2K5NRCH4E5I96&AuthorSearch=" & Replace(szTerm,"+","%20") & "&mode=books&type=heavy&page=" & szPage & "&f=xml"
    Case "2"
        szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=codetoad-20&dev-t=D2K5NRCH4E5I96&AuthorSearch=" & Replace(szTerm,"+","%20") & "&mode=" & szSchMode & "&type=heavy&page=" & szPage & "&f=xml"
    Case "3"
        szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=codetoad-20&dev-t=D2K5NRCH4E5I96&ActorSearch=" & Replace(szTerm,"+","%20") & "&mode=" & szSchMode & "&type=heavy&page=" & szPage & "&f=xml"
    Case "4"
        szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=codetoad-20&dev-t=D2K5NRCH4E5I96&DirectorSearch=" & Replace(szTerm,"+","%20") & "&mode=" & szSchMode & "&type=heavy&page=" & szPage & "&f=xml"
    Case "5"
        szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=codetoad-20&dev-t=D2K5NRCH4E5I96&ManufacturerSearch=" & Replace(szTerm,"+","%20") & "&mode=" & szSchMode & "&type=heavy&page=" & szPage & "&f=xml"
    Case Else
        szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=codetoad-20&dev-t=D2K5NRCH4E5I96&KeywordSearch=" & Replace(szTerm,"+","%20") & "&mode=" & szSchMode & "&type=heavy&page=" & szPage & "&f=xml"
End Select

objHTTP.open "GET", szGetString, false
objHTTP.Send
Set objXML = objHTTP.ResponseXML

If (objXML.getElementsByTagName("error").length=0) Then
    totProds = objXML.getElementsByTagName("Details").length

    ''Response.write("<a href='" & szGetString & "' target=_new>" & szGetString & "</a><br>")
    Response.write ("<table cellspacing=0 cellpadding=2 border=0 width=100%  bgcolor='#" & szBgCol & "'><tr><td align=center><font size=1 style='font-size:3px;'> <br></font></td></tr><tr><td align=center><font face='arial,helvetica' color=#ffffff size=2 style='font-size:12px'> Top bestsellers for <b>" & szTerm & "</b> in " & Replace(szSchMode,"universal","tools") & " - Page <b>" & szPage & "</b></font>")

    If totProds = 10 Then
        Response.write("<font face='arial,helvetica' color=#ffffff size=2 style='font-size:12px'> -- <a href='results.asp?term=" & szTerm & "&schMod=" & szSchMode & "&typ=" & szSchType & "&page=" & (szPage+1) & "&advSearch=" & szAdvSearch & "'><font color='#ffffff'><b>More on Next Page ></b></font></a> <br></td></tr></table><br>")
    Else
        Response.write("</td></tr></table><br>")
    End if

    For i = 0 to (totProds-1)

        set o15 = objXML.getElementsByTagName("Details").item(i)

        set o16 = o15.childNodes
        For j = 0 to o16.length-1
            On Error Resume Next
            Select Case o16.item(j).nodeName
                Case "Isbn" szIsbn = o16.item(j).text
                Case "Upc" szUpc = o16.item(j).text
                Case "ProductName"
                    szTitle = o16.item(j).text
                Case "Asin"
                    szAsin = o16.item(j).text
                Case "Authors"
                    szAuthor = o16.item(j).text
                Case "Artists"
                    set o17 = objXML.getElementsByTagName("Artists").item(i)
                    set o20 = o17.childNodes
                    For k = 0 to o20.length-1
                        If (k<o20.length-1) Then szCom = ", " Else szCom = "" End if
                        Select Case o20.item(k).nodeName
                            Case "Artist"
                                szArtists = szArtists & o20.item(k).text & szCom
                        End Select
                    Next
                Case "ImageUrlSmall"
                    szImage = o16.item(j).text
                Case "OurPrice"
                    szOurprice = o16.item(j).text
                Case "ListPrice"
                    szListprice = o16.item(j).text
                Case "ReleaseDate"
                    szReleasedate = o16.item(j).text
                Case "SalesRank"
                    szSalesRank = o16.item(j).text
                Case "Reviews"
                    set o17 = objXML.getElementsByTagName("Reviews").item(i)
                    set o20 = o17.childNodes
                    For k = 0 to o20.length-1
                        Select Case o20.item(k).nodeName
                            Case "AvgCustomerRating"
                                szAvgCustomerRating = o20.item(k).text
                        End Select
                    Next
            End Select
        Next

        If (szAsin<>"") Then
            szTaggedurl="detpage.asp?asin=" & szAsin & "&term=" & szTerm & "&schMod=" & szSchMode & "&type=" & szSchType
        End if

        If ((Request("AZLuck") = "Serendipity") AND (i=0)) Then
            Response.Redirect(szTaggedURL)
        End if

        Response.write ("<table border=0 width=670 ><tr valign=top><td align=center width=10% >")
        If (szImage<>"") Then
            Response.write("<a href='" & szTaggedurl & "'><img border=0 src='" & szImage & "'></a>")
        Else
            Response.write(" ")
        End if

        Response.write ("</td><td width=90% ><font face='arial,helvetica' size=2 style='font-size:12px;'><b><a href='" & szTaggedurl & "'>" & szTitle & "</a></b><br>")
        If (szAuthor<>"") Then
            Response.write ("<font style='font-size:10px;'>by " & szAuthor & "</font><br>")
        End if

        If (szArtists<>"") Then
            Response.write ("<font style='font-size:10px;'>by " & szArtists & "</font><br>")
        End if

        If ((szListprice <> "") AND (szListprice <> szOurPrice)) Then
            Response.write ("List Price: <b><strike>" & szListprice & "</strike></b><br>")
        End if

        If (szOurprice <> "") Then
            Response.write ("Our Price: <b><font color='red'>" & szOurprice & "</font></b><br>")
        End if

        If (szSalesRank <> "") Then
            Response.write ("Sales Rank: <b><font color='darkred'>" & szSalesRank & "</font></b>")
            If (szAvgCustomerRating <> "") Then
                Response.write (" - ")
            Else
                Response.write ("<br>")
            End if
        End if

        If (szAvgCustomerRating <> "") Then
            Response.write ("Avg. Rating: <b><font color='darkred'>" & Round(szAvgCustomerRating,1) & "</font></b> (out of 5)<br>")
        End if

        If (szReleasedate <> "") Then
            Response.write ("Released: " & szReleasedate )
            If (szIsbn <> "") Then
                Response.write (" - <font size=1 style='font-size:10px;'>ISBN: " & szIsbn & "</font><br>")
            Elseif (szUpc <> "") Then
                Response.write (" - <font size=1 style='font-size:10px;'>UPC: " & szUpc & "</font><br>")
            Else
                Response.write ("<br>")
            End if
        Else
            If (szIsbn <> "") Then
                Response.write ("<font size=1 style='font-size:10px;'>ISBN: " & szIsbn & "</font><br>")
            Elseif (szUpc <> "") Then
                Response.write ("<font size=1 style='font-size:10px;'>UPC: " & szUpc & "</font><br>")
            End if
        End if

        Response.write ("</td></tr><tr><td colspan=3><hr size=1 color=#cccccc noshade=true width=100% ></td></tr></table>")

        szTitle = ""
        szAsin = ""
        szAuthor = ""
        szImage = ""
        szSmallimage = ""
        szOurprice = ""
        szListprice = ""
        szReleasedate = ""
        szBinding = ""
        szTaggedurl = ""
        szAvgCustomerRating = ""
        szSalesRank = ""
        szArtists = ""
        szIsbn = ""
        szUpc = ""
    Next

    If totProds = 10 Then
        Response.write("</table> <br></div><center><font face='arial,helvetica' size=2><a href='results.asp?term=" & szTerm & "&schMod=" & szSchMode & "&typ=" & szSchType & "&page=" & (szPage+1) & "&advSearch=" & szAdvSearch & "'><b>More on Next Page ></b></a><p></center>")
    Else
        Response.write ("</table> <br><p> </div>")
    End if

    Set objXML = Nothing
    Set objXSL = Nothing

if totProds > 0 Then %>
<center>
<form action="results.asp">
<table cellspacing=0 cellpadding=0 border=0>
<tr>
<td>
    <input maxLength=256 size=40 name="term" value="<% =szTerm %>"> <input type=submit value="Amazon Search" name=AZSch>
    <input type=hidden value="<% =szSchMode %>" name=schMod>
</td>
</tr>
</table>
</form>

<% Else %>

<center>
<p>
We're sorry, no results found for <% =szTerm %> in <% =szSchMode %>. Please try another category.
<p> <p><br><p>Amazon.com Links<br>
<% Response.write ("<table cellspacing=0 cellpadding=2 border=0 width=100% ><tr><td bgcolor='#" & szBgCol & "'><font size=2 style='font-size:12px'><center><a href='http://www.amazon.com/exec/obidos/tg/stores/recs/instant-recs/-/recs'><font color=#ffffff>Recommendations</font></a> - <a href='http://www.amazon.com/exec/obidos/tg/stores/static/-/gateway/international-gateway'><font color=#ffffff>International</font></a> - <a href='http://www.amazon.com/exec/obidos/account-access-login'><font color=#ffffff>Your Account</font></a> - <a href='http://www.amazon.com/exec/obidos/wishlist'><font color=#ffffff>Wish List</font></a> - <a href='http://www.amazon.com/exec/obidos/tg/browse/-/909656'><font color=#ffffff>Today's Deals</font></a> - <a href='http://www.amazon.com/exec/obidos/tg/browse/-/508510'><font color=#ffffff>Help</font></a></font></td></tr></table>") %>
</center>


<% End if

Else

    Response.write ("<div id='bin'>No Results found for <b>" & szTerm & "</b> in " & szSchMode & ".</div>")

End if


%>

<p><br><br>
<b>At Amazon.com Proper</b><br>
<table border=0 cellspacing=0 cellpadding=0 width=100% ><tr bgcolor="#efeecf"><td align="center"><font face="arial,helvetica" size=2>
<a href="http://www.amazon.com/exec/obidos/tg/stores/recs/instant-recs/-/recs">Recommendations</a> -
<a href="http://www.amazon.com/exec/obidos/tg/stores/static/-/gateway/international-gateway">International</a> -
<a href="http://www.amazon.com/exec/obidos/account-access-login">Your Account</a> -
<a href="http://www.amazon.com/exec/obidos/wishlist">Wish List</a> -
<a href="http://www.amazon.com/exec/obidos/tg/browse/-/909656">Today's Deals</a> -
<a href="http://www.amazon.com/exec/obidos/tg/browse/-/508510">Help</a><br> 
 </td></table></center></body></html>

and finally, a page to display the product detail. Yes, AmazonLite even goes as far as pulling secondary detail pages from the Amazon API. This page is called detpage.asp

Select All Code

<%

If (Request("asin") <> "") Then
    szAsin = Request("asin")
Else
    szAsin = "0967786002"
End if

If (Request("schMod") <> "") Then
    szSchMode = Request("schMod")
Else
    szSchMode = "books"
End if

szSchType = Request("type")

If (Request("term") <> "") Then
    szTerm = Replace(Request("term")," ","+")
Else
    szTerm = "Whittier Alaska"
End if

dim objHTTP
dim objXML
dim szGetString
dim rgReviews()

set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=codetoad-20&dev-t=D2K5NRCH4E5I96&AsinSearch=" & szAsin & "&type=heavy&f=xml"

objHTTP.open "GET", szGetString, false
objHTTP.Send
Set objXML = objHTTP.ResponseXML

If (objXML.getElementsByTagName("error").length=0) Then
    totProds = objXML.getElementsByTagName("Details").length

    For i = 0 to (totProds-1)

        set o15 = objXML.getElementsByTagName("Details").item(i)

        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 "Manufacturer" szManufacturer = o16.item(j).text
            Case "Distributor" szDistributor = o16.item(j).text
            Case "Binding" szBinding = o16.item(j).text
            Case "ReadingLevel" szReadingLevel = o16.item(j).text
            Case "Publisher" szPublisher = o16.item(j).text
            Case "Media" szMedia = o16.item(j).text
            Case "Rank" szRank = o16.item(j).text
            Case "OurPrice" szOurPrice = o16.item(j).text
            Case "ListPrice" szListPrice = o16.item(j).text
            Case "UsedPrice" szUsedPrice = o16.item(j).text
            Case "RefurbishedPrice" szRefurbishedPrice = o16.item(j).text
            Case "AvgCustomerRating" szAvgCustomerRating = o16.item(j).text
            Case "AgeGroup" szAgeGroup = o16.item(j).text
            Case "EsrbRating" szEsrbRating = o16.item(j).text
            Case "MpaaRating" szMpaaRating = o16.item(j).text
            Case "Encoding" szEncoding = o16.item(j).text
            Case "ReleaseDate" szReleaseDate = o16.item(j).text
            Case "Availability" szAvailability = o16.item(j).text
            Case "ImageUrlLarge" szImageUrlLarge = o16.item(j).text
            Case "ImageUrlMedium" szImageUrlMedium = o16.item(j).text
            Case "ImageUrlSmall" szImageUrlSmall = o16.item(j).text
            Case "TheatricalRelease" szTheatricalRelease = o16.item(j).text
            Case "SalesRank" szSalesRank = o16.item(j).text
            Case "SimilarProducts" szSimilarProducts = o16.item(j).text
            Case "Authors"
                totAuths = objXML.getElementsByTagName("Author").length
                For k = 0 to (totAuths-1)
                    If (k<totAuths-1) Then szCom = ", " Else szCom = "" End if
                    set o17 = objXML.getElementsByTagName("Authors").item(0)
                    set o18 = o17.childNodes
                    Select Case o18.item(k).nodeName
                        Case "Author" szAuthors = szAuthors & o18.item(k).text & szCom
                    End Select
                Next
            Case "Artists"
                totArts = objXML.getElementsByTagName("Artist").length
                For k = 0 to (totArts-1)
                    If (k<totArts-1) Then szCom = ", " Else szCom = "" End if
                    set o17 = objXML.getElementsByTagName("Artists").item(0)
                    set o18 = o17.childNodes
                    Select Case o18.item(k).nodeName
                        Case "Artist" szArtists = szArtists & o18.item(k).text & szCom
                    End Select
                Next
            Case "Reviews"
                totReviews = objXML.getElementsByTagName("CustomerReview").length
                szAvgCustomerRating = objXML.getElementsByTagName("AvgCustomerRating").item(0).text
                ReDim rgReviews(totReviews)
                For k = 0 to (totReviews-1)
                    set o17 = objXML.getElementsByTagName("CustomerReview").item(k)
                    set o20 = o17.childNodes
                    For l = 0 to 2
                        Select Case o20.item(l).nodeName
                            Case "Rating" rgReviews(k) = rgReviews(k) & "<b>Rating: </b>" & o20.item(l).text & " (out of 5)<br>"
                            Case "Summary" rgReviews(k) = rgReviews(k) & "<b>Summary: </b>" & o20.item(l).text & "<br>"
                            Case "Comment" rgReviews(k) = rgReviews(k) & "<b>Comment: </b>" & o20.item(l).text & "<br>"
                        End Select
                    Next
                Next
            Case "Platforms" szPlatforms = o16.item(j).text
            Case "Platform" szPlatform = o16.item(j).text
            Case "Starring"
                totActors = objXML.getElementsByTagName("Actor").length
                For k = 0 to (totActors-1)
                    set o17 = objXML.getElementsByTagName("Starring").item(0)
                    set o18 = o17.childNodes
                    Select Case o18.item(k).nodeName
                        Case "Actor" szActors = szActors & " • " & o18.item(k).text & "<br>"
                    End Select
                Next
            Case "Directors"
                totDirectors = objXML.getElementsByTagName("Director").length
                For k = 0 to (totDirectors-1)
                    If (k<totDirectors-1) Then szCom = ", " Else szCom = "" End if
                    set o17 = objXML.getElementsByTagName("Directors").item(0)
                    set o18 = o17.childNodes
                    Select Case o18.item(k).nodeName
                        Case "Director" szDirectors = szDirectors & o18.item(k).text & szCom
                    End Select
                Next
            Case "Features"
                totFeatures = objXML.getElementsByTagName("Feature").length
                For k = 0 to (totFeatures-1)
                    set o17 = objXML.getElementsByTagName("Features").item(0)
                    set o18 = o17.childNodes
                    Select Case o18.item(k).nodeName
                        Case "Feature" szFeatures = szFeatures & " • " & o18.item(k).text & "<br>"
                    End Select
                Next
            Case "Tracks"
                totTracks = objXML.getElementsByTagName("Track").length
                For k = 0 to (totTracks-1)
                    If (k<totTracks-1) Then szCom = ", " Else szCom = "" End if
                    set o17 = objXML.getElementsByTagName("Tracks").item(0)
                    set o18 = o17.childNodes
                    Select Case o18.item(k).nodeName
                        Case "Track" szTracks = szTracks & o18.item(k).text & szCom
                    End Select
                Next
            Case "Accessories"
                totAccessories = objXML.getElementsByTagName("Accessory").length
                For k = 0 to (totAccessories-1)
                    If (k<totAccessories-1) Then szCom = ", " Else szCom = "" End if
                    set o17 = objXML.getElementsByTagName("Accessories").item(0)
                    set o18 = o17.childNodes
                    Select Case o18.item(k).nodeName
                        Case "Accessory" szAccessories = szAccessories & o18.item(k).text & szCom
                    End Select
                Next
            End Select
        Next

%>

<html>
<head>
<title>Amazon Light - Details for <% =szProductName %></title>
</head>
<body bgcolor="#ffffff" link="#222222" alink="#000066" vlink="#666666" text="#000000" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0>
<center><table border=0 cellspacing=0 cellpadding=0 width=100% ><tr bgcolor="#efeecf"><td> </td></table></center>
<font face="arial,helvetica" size=2>
<form action="results.asp">
<table cellspacing=0 cellpadding=0 width=650 border=0>
<tr><td rowspan=2>  </td>
<td width=148 rowspan=2>
<font face="arial,helvetica" size=1>
<nobr>In association with</nobr<><br>
<a href="default.asp"><img src="amzn-logo-sm.gif" alt="Amazon" width="148" height="43" border=0 hspace="0" vspace="0" align=left></a>  </td>
<td align=left><font face="arial,helvetica" size=1><nobr><a href="advsearch.asp">Advanced Search</a> - <a href="http://www.amazon.com" target="_new">Amazon.com Proper</a></nobr><br></font>
</td>
</tr>
<tr valign=bottom>
<td>
    <input maxLength=256 size=40 name="term" value="<% =szTerm %>"> <input type=submit value="Amazon Search" name=AZSch>
    <input type=hidden value="<% =szSchMode %>" name=schMod><input type=hidden value="<% =szSchType %>" name=typ></form>
</td>
</tr></table>
<hr size=1 color=#006699 noshade=true width=100% ><br>
<table cellspacing=0 cellpadding=3 border=0 width=100% >
    <tr valign=top><td>  </td><td width=15% align=center>
<%
        If (szImageUrlMedium<>"") Then
            Response.write("<a href='" & szImageUrlLarge & "' target='_new'><img border=0 src='" & szImageUrlMedium & "'><br><font size=1 style='font-size:10px;'>Click to see larger image</font></a><br>")
        Elseif (szImageUrlSmall<>"") Then
            Response.write("<img border=0 align=left src='" & szImageUrlSmall & "'><br>")
        Else
            Response.write(" ")
        End if
        Response.write ("</td><td width=65% ><font face='arial,helvetica' size=2 style='font-size:16px;'><b>" & szProductName & "</b><br></font>")
        If (szAuthors<>"") Then
            Response.write ("<font face='arial,helvetica' size=2 style='font-size:14px;'>by " & szAuthors & "<br>")
        End if

        If (szArtists<>"") Then
            Response.write ("<font face='arial,helvetica' size=2 style='font-size:14px;'>by " & szArtists & "<br>")
        End if

        If (szManufacturer<>"") Then
            Response.write ("<font face='arial,helvetica' size=2 style='font-size:12px;'>" & szManufacturer & "</font><br>")
        End if

        If (szSalesRank <> "") Then
            Response.write ("<font face='arial,helvetica' size=2 style='font-size:12px;'>Sales Rank: <b><font color='darkred'>" & szSalesRank & "</font></b>")
            If (szAvgCustomerRating <> "") Then
                Response.write (" - ")
            Else
                Response.write ("<br>")
            End if
        End if
        If (szAvgCustomerRating <> "") Then
            Response.write ("<font face='arial,helvetica' size=2 style='font-size:12px;'>Avg. Rating: <b><font color='darkred'>" & Round(szAvgCustomerRating,1) & "</font></b> (out of 5)<br>")
        End if

        If (szReleasedate <> "") Then
            Response.write ("Released: " & szReleasedate )
            If (szIsbn <> "") Then
                Response.write (" - ISBN: " & szIsbn & "<br>")
            Elseif (szUpc <> "") Then
                Response.write (" - UPC: " & szUpc & "<br>")
            Else
                Response.write ("<br>")
            End if
        Else
            If (szIsbn <> "") Then
                Response.write ("ISBN: " & szIsbn & "<br>")
            Elseif (szUpc <> "") Then
                Response.write ("UPC: " & szUpc & "<br>")
            End if
        End if


        If (szFeatures <> "") Then
            Response.write ("<b>Features</b>:<br>" & szFeatures & "<br>")
        End if

        If (szMedia <> "") Then
            Response.write(szMedia)
            If (szPlatform <> "") Then
                Response.write(" for " & szPlatform & "<br>")
            Else
                Response.write("<br>")
            End if
        End if


        If (szEsrbRating <> "") Then
            Response.write ("<b>Rated:</b>:    " & szEsrbRating & "<br>")
        End if

        If (szMpaaRating <> "") Then
            Response.write ("<b>Rated:</b>:    " & szMpaaRating & "<br>")
        End if

        If (szDirectors <> "") Then
            Response.write ("<b>Directed by</b>:<br> " & szDirectors & "<br>")
        End if

        If (szActors <> "") Then
            Response.write ("<b>Starring</b>:<br>" & szActors & "<br>")
        End if

        Response.write ("</td><td width=20% ><font face='arial,helvetica' size=2 style='font-size:14px;'>")
        If ((szListprice <> "") AND (szListprice <> szOurPrice)) Then
            Response.write ("List Price: <b><strike>" & szListprice & "</strike></b><br>")
        End if
        If (szOurprice <> "") Then
            Response.write ("Our Price: <b><font color='red'>" & szOurPrice & "</font></b><p>")
        End if

        Response.write ("<form method='POST' target='_new' action='http://www.amazon.com/o/dt/assoc/handle-buy-box=" & szAsin & "/stores/detail/one-click-thank-you-confirm'>")
        If (szAvailability <> "") Then
            Response.write ("<center><font size=1>This items availability: <u>" & szAvailability & "</u></font></center>")
        End if
        Response.write ("<center><input type='submit' style='color:white;background-color:#006699' name='submit.add-to-cart' value='Buy from Amazon.com'><input type='hidden' name='asin' value='" & szAsin & "'><input type='hidden' name='asin." & szAsin & "' value='1'><input type='hidden' name='" & szAsin & "' value='1' size='1'><input type='hidden' name='tag-value' value='codetoad-20'><input type='hidden' name='dev-tag-value' value='D24ZY08I7E8YCH'><input type='hidden' name='template-name' value='stores/detail/one-click-thank-you-confirm'><font size=1><br>Will open new window on Amazon's site</font></center></form>")

        Response.write ("</td><td>  </td></tr></table>")

        If (szSimilarProducts <> "") Then
            Response.write("<center><b>Related Items</b>:<hr size=1 color=#006699 noshade='true'>")
            rgSims = Split(szSimilarProducts," ")
            For ss = 0 to UBound(rgSims)
                Response.write("<a href='detpage.asp?asin=" & rgSims(ss) & "&term=" & szTerm & "&schMod=" & szSchMode & "&type=" & szSchType & "'><img src='http://images.amazon.com/images/P/" & rgSims(ss) & ".01.THUMBZZZ.jpg' border=0 hspace=2></a>")
            Next
            Response.write("<hr size=1 color=#006699 noshade='true'></center>")
        Else
            Response.write("<p>")
        End if


        Response.write("<table cellspacing=0 cellpadding=5 border=0 width=80% ><tr><td>  </td><td><font face='arial,helvetica' size=2 style='font-size:12px;'>")
        If (totReviews>0) Then
            Response.write ("<b><font size=3>Top Customer Reviews</font></b><br>")
            For zz = 0 to (UBound(rgReviews)-1)
                Response.write(rgReviews(zz) & "<hr>")
            Next
        End if
        Response.write ("</td></tr></table><font size=2 style='font-size:12px;'>")

    Next

    Set objXML = Nothing
    Set objXSL = Nothing

Else

    Response.write ("<div id='bin'>Sorry, No Results found for ASIN #<b>" & szAsin & "</b> in " & szMode & ".</div>")

End if

%>
</td></tr>
</table>
<center>
<p><br><br>
<b>At Amazon.com Proper</b><br>
<table border=0 cellspacing=0 cellpadding=0 width=100% ><tr bgcolor="#efeecf"><td align="center"><font face="arial,helvetica" size=2>
<a href="http://www.amazon.com/exec/obidos/tg/stores/recs/instant-recs/-/recs">Recommendations</a> -
<a href="http://www.amazon.com/exec/obidos/tg/stores/static/-/gateway/international-gateway">International</a> -
<a href="http://www.amazon.com/exec/obidos/account-access-login">Your Account</a> -
<a href="http://www.amazon.com/exec/obidos/wishlist">Wish List</a> -
<a href="http://www.amazon.com/exec/obidos/tg/browse/-/909656">Today's Deals</a> -
<a href="http://www.amazon.com/exec/obidos/tg/browse/-/508510">Help</a><br> 
 </td></table></center></body></html>

Can I reuse this code?

Yes, by all means, go and reuse this as you wish - just be sure to credit the source, Kokogiak Media (http://www.kokogiak.com). You will need to obtain your own developer's token from Amazon.com though, if you want credit for your own traffic.

Useful Links

Hosting Deals and coupons

Reseller Hosting

Web+Hosting=$1.66

Web Hosting

Hosting

Windows Hosting

Web Hosting Providers

Advertise here

CodeToad Experts

Can't find the answer?
Our Site experts are answering questions for free in the CodeToad forums

Rate this article: Poor Excellent

View highlighted Comments

User Comments on 'Amazon Lite Web Service'

Posted by : Archive Import (Nancy) at 23:02 on Sunday, September 15, 2002

This is probably a great tool, if I only knew exactly WHAT to do with it!
I put the three pages of code onto my notepad and saved in ASP, it imediately was on my Macromedia- h-m-m , I'm a novice- just what do I do with it now?
I'm learning all this webby stuff hit and miss, jumping from this to that- what I need is a turorial on how to put together the Amazon pages- any suggestions?

Thank you for sharing this code with us!

Posted by : Archive Import (Ned) at 18:56 on Monday, September 16, 2002

What is the way to incorporate developer's token from Amazon.com if we already have one?
Thanks.

Posted by : David Bruce at 01:33 on Tuesday, September 17, 2002

Simply replace all occurrences of the D2K5NRCH4E5I96 string with your own token and replace codetoad-20 with your Amazon ID. These are found in both the results.asp page and the detpage.asp

Posted by : Archive Import (orlando) at 09:30 on Tuesday, October 01, 2002

Dear Nancy:
I don't know if you already solved your problem, but I'll tell you what to do to run asp on your computer. First you better be using windows 2000.

How to install IIS and run ASP on Windows 2000

From your Start Button, go to Settings, and Control Panel
In the Control Panel window select Add/Remove Programs
In the Add/Remove window select Add/Remove Windows Components
In the Wizard window check Internet Information Services, click OK
An Inetpub folder will be created on your harddrive
Open the Inetpub folder, and find a folder named wwwroot
Create a new folder, like "MyWeb", under wwwroot.
Use a text editor to write some ASP code, save the file as "test1.asp" in the "MyWeb" folder
Make sure your Web server is running
Open your browser and type in "http://localhost/MyWeb/test1.asp", to view your first ASP page

And that's it!!
Take care.
Orlando

Posted by : Archive Import (Nadeem Azam) at 23:19 on Sunday, November 17, 2002

Thank you Orlando. Very helpful.

And how do we incorporate it into our websites please? :)

Sorry, but we're not all experts here. Thank you.

Posted by : Archive Import (ray) at 18:32 on Monday, December 23, 2002

I am interested in the part where the xml is accessed. could you highlight
the part of the code where xml is presenting the data?

Posted by : Archive Import (Mac) at 21:41 on Tuesday, January 07, 2003

I have never looked at the Amazon XML API, but the code above uses classic ASP to walk the tree in XML( i was wanting to use the word p*rse but it said it was illegal, go figure). If you wanted something a lot better, look into XSL for the transformations. I know that my XML API uses XML over HTTP (where the xml request is actually 'piggybacking' on a HTTP request). Nancy, what you will have to have is a server i.e. windows with IIS 5.0 or higher, or a *nix server with Chili!soft installed to run ASP scripts.

Posted by : Archive Import (Nadeem) at 20:25 on Sunday, February 23, 2003

Thank you Orlando for your step-by-step instruction! Very kind of you.

Nadeem

Posted by : Archive Import (Nadeem) at 23:17 on Sunday, February 23, 2003

Sorry, but I am not an expert with ASP. Never used it before!

I have one other question: can this script be used with a Unix web host or must it be Microsoft?

Thank you Orlando/anyone else :)

Posted by : Archive Import (Marcus) at 14:37 on Thursday, April 10, 2003

ASP must be run using a Microsoft server (ex. IIS).

UNIX hosts allow for greater use CGI and PHP scripting.

Posted by : Archive Import (Brian) at 23:15 on Tuesday, May 20, 2003

This is GREAT! I just had to copy, paste, and run it on my webserver. Is this OK with Amazon using their database and files like this? I love it.
Brian

Posted by : Archive Import (david) at 13:17 on Thursday, May 22, 2003

Brian - they're absolutely ok with it - it encourages more sales from them and it uses their web service application.

Posted by : Hope at 14:53 on Friday, August 27, 2004

Hello,
I'm very interested in the Amazon Light Web Service. I am a new Amazon Associate and have yet to start building my site and store. I came across Amazon Light and fell in love. I have a few questions and wonder who I can direct them to (if not here)? They are as follows:

Are full 15% commissions paid to those using Amazon Light?

If several items are deposited in the AL Wish List and then transferred to Amazon's cart, are full commissions paid for all items deposited?

Can the "look" Amazon Light be altered to match my site colors/themes?

Can I use this service for more than one web site?

Thank you so much!

Hope

Posted by : vinforum at 04:00 on Friday, December 15, 2006

[b]very useful[/b]

To post comments you need to become a member. If you are already a member, please log in .

Recent Forum Threads

•	I Need Help
•	User input validation
•	Create a wrapper for a COM Dll
•	HashMaps
•	HashMaps
•	NEED HELP! Urgent
•	Re: Exciting Open Source Project in C++
•	Re: The Ballarat Airline Company (BAC)
•	Re: problem getting prompt window to work on IE

Recent Articles

	ASP GetTempName
	Decode and Encode UTF-8
	ASP GetFile
	ASP FolderExists
	ASP FileExists
	ASP OpenTextFile
	ASP FilesystemObject
	ASP CreateFolder
	ASP CreateTextFile
	Javascript Get Selected Text

submit a link - privacy - contact - advertise - hot links - link to us - submit your article