<%

'+------------------
'| Amazon Light Your List page
'+------------------

'+------------------
'| Set a useragent string for Mozilla/IE/Every other browser (due to display differences)
'+------------------

tmpUa = Request.ServerVariables("HTTP_USER_AGENT")
If ((InStr(tmpUa,"MSIE 4")<>0) OR (InStr(tmpUa,"MSIE 5")<>0) OR (InStr(tmpUa,"MSIE 6")<>0)) Then
	tmpUa = 1	'IE4+
ElseIf (InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Mozilla/5")<>0) Then
	tmpUa = 3	'Gecko
Else
	tmpUa = 2	'everyone else
End if

'+------------------
'| Grab variables from querystring if they exist
'|  - szSchType = Type of main category -
'|		(books,elec,game,home)
'|  - szSchMode = Type of sub category (none = books) -
'|		(music,dvd,pc-hardware,software,toys,videogames,kitchen,universal,
'| 		garden,magazines,vhs,electronics,baby,photo)
'| 	- Request("term") and Request("field-keywords") are equivalent - just
'|		supporting old code by including "term"
'+------------------

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("sb") = "o") Then
	szSB = "o"
Else
	szSB = "s"
End if

If ((Request("term") <> "") OR (Request("field-keywords") <> "")) Then
	szTerm = Replace(Request("term")," ","+")
	If szTerm = "" Then
		szTerm = Replace(Request("field-keywords")," ","+")
	End if
Else
	szTerm = ""
End if

dim szEmpty
szEmpty = "true"
dim szDis
dim objHTTP
dim objXML
dim szGetString %>

<html>
<head>
<title>Amazon Light - Your List</title>
<meta name="keywords" content="Amazon.com, Amazon webservices, amazon web services, amazon light, amazon lite, amazonlight, amazagoogle, googlezon, amagoogle, amazon.com light, amazon associates, easy search, kokogiak amazon">
<meta name="description" content="Amazon Light - a fast and easy way to search and browse Amazon.com, Amazon Light, an Amazon.com Web Service, Amazon Light by Kokogiak Media">
<link rel="stylesheet" type="text/css" href="ph.css">
</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><img border=0 height=15 width=290 src="nv.gif" align="absmiddle" usemap="#nv"> </td></table></center>
<map name="nv"><area shape='rect' href='default.asp?field-keywords=<% =szTerm %>&sb=<% =szSB %>&typ=<% =szSchType %>&mod=<% =szSchMode %><% If szSB = "o" Then Response.write("&scNode=" & szNode) %>' coords='0,0,52,15'><%
Response.write("<area shape='rect' href='results.asp?sb=" & szSB & "&schMod=books&field-keywords=" & szTerm & "&scNode=000' coords='52,0,96,15'>")
Response.write("<area shape='rect' href='results.asp?sb=" & szSB & "&schMod=electronics&typ=elec&field-keywords=" & szTerm & "&scNode=000' coords='96,0,169,15'>")
Response.write("<area shape='rect' href='results.asp?sb=" & szSB & "&schMod=toys&typ=game&field-keywords=" & szTerm & "&scNode=000' coords='169,0,205,15'>")
Response.write("<area shape='rect' href='results.asp?sb=" & szSB & "&schMod=kitchen&typ=home&field-keywords=" & szTerm & "&scNode=000' coords='205,0,289,15'>")
%></map>
<table cellspacing=5 cellpadding=0 width=100% border=0><tr valign=top><td>
<font face="arial,helvetica" size=2>
<form action="results.asp">
<table cellspacing=0 cellpadding=0 border=0>
<tr valign=top><td rowspan=2>  </td>
<td width=148 rowspan=2>
<font face="arial,helvetica" size=1>
<a href="default.asp?field-keywords=<% =szTerm %>&sb=<% =szSB %>&typ=<% =szSchType %>&mod=<% =szSchMode %><% If szSB = "o" Then Response.write("&scNode=" & szNode) %>"><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 align=center>
	<nobr><input maxLength=256 size=30 name="field-keywords" value="<% =Replace(szTerm,"+"," ") %>"><br><input type=image src="azs.gif" alt="Search for Amazon.com Products" height="20" width="150" border="0" value="Amazon Search" name=AZSch></nobr>
	<input type=hidden value="<% =szSchMode %>" name=schMod><input type=hidden value="<% =szSchType %>" name=typ>
</td>
</tr></form></table>
</td>
<td align=right><font size=2 face='arial,helvetica'>• <a href='about_yl.asp'>Your List FAQ</a> </font></td>
</tr></table>
<center>
<%

szTerm = Replace(szTerm,"'","%27")

'+------------------
'| Set up the two cookies (asin1 & asin2) to be read and written for item management
'+------------------

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

	szCookieName = "asin"
	cCount = 1
	cCount2 = 1
	szOverLimit = "false"
	Dim rgAsinList1(76)
	Dim rgAsinList2(76)
	If Request("removeall") = "true" Then
		Response.Cookies("asin1") = ""
		Response.Cookies("asin2") = ""
	End if


''How many in 'asin'
	If Request.Cookies("asin1")<>"" Then
		If Request.Cookies("asin1").HasKeys Then
			For Each strSubKey In Request.Cookies("asin1")
				If Request.Cookies("asin1")(strSubKey) <> "" Then
					cCount = cCount + 1
				End if
		    Next
	    End if
	End if

''How many in 'asin2'
	If Request.Cookies("asin2")<>"" Then
		If Request.Cookies("asin2").HasKeys Then
			For Each strSubKey In Request.Cookies("asin2")
				If Request.Cookies("asin2")(strSubKey) <> "" Then
					cCount2 = cCount2 + 1
				End if
		    Next
	    End if
	End if
	If cCount2 > 1 Then
		cCount = 75
	End if

'' Remove Asin and re-order list appropriately
	If Request("rmasin") = "1" Then
	On Error Resume Next
		If (InStr(Request.Cookies("asin1"),szAsin)<>0) Then
			For ac = (cCount - 1) to 1 step -1
				rgAsin = Split(Request.Cookies("asin1")(CStr(ac)),"|")
				If szAsin = rgAsin(0) Then
					If ((Request("update.list")<>"") OR (Request("update.list.x") <> "")) Then
						szAmt = Request("qty")
						If (CInt(szAmt) > 999) Then szAmt = "999"
						szPN = rgAsin(1)
					End if
			    	nSameNo = ac
		    		Exit For
				End if
			Next
			For ac = nSameNo to cCount-1
				Response.Cookies("asin1")(CStr(ac)) = Request.Cookies("asin1")(CStr(ac+1))
			Next
			If ((Request("remove.from.list")<>"") OR (CInt(szAmt)<1)) Then
				Response.Cookies("asin1")(CStr(cCount-1)) = ""
			Else
				Response.Cookies("asin1")(CStr(cCount-1)) = szAsin & "|" & szPN & "|" & szAmt
			End if
    		Response.Cookies("asin1").Expires = Now() + 90
		End if
		If (InStr(Request.Cookies("asin2"),szAsin)<>0) Then
			For ac = (cCount2 - 1) to 1 step -1
				rgAsin = Split(Request.Cookies("asin2")(CStr(ac)),"|")
				If szAsin = rgAsin(0) Then
					If ((Request("update.list")<>"") OR (Request("update.list.x") <> "")) Then
						szAmt = Request("qty")
						If (CInt(szAmt) > 999) Then szAmt = "999"
						szPN = rgAsin(1)
					End if
			    	nSameNo = ac
		    		Exit For
				End if
			Next
			For ac = nSameNo to cCount2-1
				Response.Cookies("asin2")(CStr(ac)) = Request.Cookies("asin2")(CStr(ac+1))
			Next
			If ((Request("remove.from.list")<>"") OR (CInt(szAmt)<1)) Then
				Response.Cookies("asin2")(CStr(cCount2-1)) = ""
			Else
				Response.Cookies("asin2")(CStr(cCount2-1)) = szAsin & "|" & szPN & "|" & szAmt
			End if
    		Response.Cookies("asin1").Expires = Now() + 90
    		Response.Cookies("asin2").Expires = Now() + 90
		End if

''If they just added an item - write to the cookie, then immediately redirect to avoid the problem
''of adding an asin every time they reload a page

	If (Request("addasin") = "1") Then
		szPath = Request.ServerVariables("URL") & "?" & Replace(Request.ServerVariables("QUERY_STRING"),"addasin=1","addasin=2")
		Response.redirect(szPath)
	End if

''recount cookies since we may have changed them above
	''How many in 'asin'
		If Request.Cookies("asin1")<>"" Then
			If Request.Cookies("asin1").HasKeys Then
				For Each strSubKey In Request.Cookies("asin1")
					If Request.Cookies("asin1")(strSubKey) <> "" Then
						cCount = cCount + 1
					End if
			    Next
		    End if
		End if

	''How many in 'asin2'
		If Request.Cookies("asin2")<>"" Then
			If Request.Cookies("asin2").HasKeys Then
				For Each strSubKey In Request.Cookies("asin2")
					If Request.Cookies("asin2")(strSubKey) <> "" Then
						cCount2 = cCount2 + 1
					End if
			    Next
		    End if
		End if
		If cCount2 > 1 Then
			cCount = 75
		End if
	End if

	szDis = " disabled='true'"

	If cCount2 > 1 Then
		cCount = 75
	End if

'' assign cookies to a pair of arrays
	If Request.Cookies("asin2")<>"" Then
		For ac = ((cCount2) - 1) to 1 step -1
			rgAsinList2(ac)=Request.Cookies("asin2")(CStr(ac))
		Next
	End if
	If Request.Cookies("asin1")<>"" Then
		For ac = (cCount - 1) to 1 step -1
			rgAsinList1(ac)=Request.Cookies("asin1")(CStr(ac))
		Next
	End if
	Response.write("<table border=0 width=100% ><form method='POST' target='_new' action='http://www.amazon.com/exec/obidos/dt/assoc/handle-buy-box=/'><tr valign=top><td align=center bgcolor='#006699'><b><font face='arial,helvetica' size=3 color='#ffffff'>Your List</font></b></td></tr></table><table border=0 width=670><tr valign=top><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>Add all items below to your Amazon.com Shopping Cart<sup><a href='#cart' style='text-decoration:none;' title='You do not have to be signed in to Amazon.com to add items to your cart'>1</a></sup> : <input type='hidden' name='tag-value' value='kokogiak-20'><input type='hidden' name='dev-tag-value' value='[Insert Developer's Token Here]'><input type='hidden' name='colid' value=''><input type='hidden' name='template-name' value=''>")

''step through cookie array and spit out form elements
	For bc = 76 to 1 step -1
		If (rgAsinList2(bc)<>"") Then
			rgAsin = Split(rgAsinList2(bc),"|")
			Response.write("<input type='hidden' name='asin." & rgAsin(0) & "' value='" & rgAsin(2) & "'>")
		End if
	Next
	For bc = 76 to 1 step -1
		If (rgAsinList1(bc)<>"") Then
			szDis = ""
			rgAsin = Split(rgAsinList1(bc),"|")
			Response.write("<input type='hidden' name='asin." & rgAsin(0) & "' value='" & rgAsin(2) & "'>")
		End if
	Next
	Response.write("<input type='image'" & szDis & " src='sc.gif' border=0 vspace=2 height=20 width=200 align=absmiddle value='Add to Amazon.com Shopping Cart' name='submit.add-to-cart' title='Click here to add all items to Amazon.com Shopping Cart.'></nobr></td></tr>")
	Response.write("<tr><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>or, Add all items below to your Amazon.com Wishlist<sup><a href='#wl' style='text-decoration:none;' title='You may be prompted to sign in to Amazon.com to add items to your wishlist'>2</a></sup> : <input type='image'" & szDis & " src='wl.gif' border=0 vspace=2 height=20 width=200 align=absmiddle name='submit.add-to-registry.wishlist' value='Add to Amazon.com Wishlist' title='Click here to add all items to Amazon.com Wishlist.'></nobr></font></td></tr><tr><td align=right><font face='arial,helvetica' size=2 color='#006699'>or, choose from <a href='#more'>More Options</a> below.</font></td></tr><tr><td bgcolor='#efeecf'><b><font size=1 style='font-size:4px;'> </font></td></tr></form></table>")

	If (szDis = "") Then
		Response.write("<table border=0 width=670><tr valign=bottom><td width=70><font face='arial,helvetica' size=1>Img.</font></td><td width=30 align='right'><font face='arial,helvetica' size=1>Qty. </font></td><td width=570><font face='arial,helvetica' size=1>Description</font></td></tr></table>")
	End if

''step through cookie array and grab xml docs for each to display info on list
''could also probably be done with lite version of xml doc
	For bc = 76 to 1 step -1
		If (rgAsinList2(bc)<>"") Then
			szEmpty = "false"
			rgAsin = Split(rgAsinList2(bc),"|")
			szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=kokogiak-20&dev-t=[Insert Developer's Token Here]&AsinSearch=" & rgAsin(0) & "&type=heavy&f=xml"
			listItem szGetString, rgAsin(2)
		End if
	Next
	For bc = 76 to 1 step -1
		If (rgAsinList1(bc)<>"") Then
			szEmpty = "false"
			rgAsin = Split(rgAsinList1(bc),"|")
			szGetString = "http://xml.amazon.com/onca/xml?v=1.0&t=kokogiak-20&dev-t=[Insert Developer's Token Here]&AsinSearch=" & rgAsin(0) & "&type=heavy&f=xml"
			listItem szGetString, rgAsin(2)
		End if
	Next

	If szEmpty = "true" Then
		Response.write("<center><font size=3 face='arial,helvetica'> <br>Your List is currently Empty.<p><a href='default.asp'>Search for something</a>, and Add It to Your List.<br>Then you can choose which of these options (buttons) to use.<br>Or, click <a href='about_yl.asp'>here</a> to learn more about Your List.<br><br><br> </font></center>")
	End if

	Response.write("<a name='more'>")

	Response.write("<table border=0 width=670><form method='POST' target='_new' action='http://www.amazon.com/exec/obidos/dt/assoc/handle-buy-box=/'><tr><td bgcolor='#efeecf' align='center'><b><font face='arial,helvetica' size=3 color='#006699'>More List Options</font></b></td></tr><tr valign=top><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>Add above items to your Amazon.com Shopping Cart<sup><a href='#cart' style='text-decoration:none;'  title='You do not have to be signed in to Amazon.com to add items to your cart'>1</a></sup> : <input type='hidden' name='tag-value' value='kokogiak-20'><input type='hidden' name='dev-tag-value' value='[Insert Developer's Token Here]'><input type='hidden' name='colid' value=''><input type='hidden' name='template-name' value=''>")
	For bc = 76 to 1 step -1
		If (rgAsinList2(bc)<>"") Then
			rgAsin = Split(rgAsinList2(bc),"|")
			Response.write("<input type='hidden' name='asin." & rgAsin(0) & "' value='" & rgAsin(2) & "'>")
		End if
	Next
	For bc = 76 to 1 step -1
		If (rgAsinList1(bc)<>"") Then
			szDis = ""
			rgAsin = Split(rgAsinList1(bc),"|")
			Response.write("<input type='hidden' name='asin." & rgAsin(0) & "' value='" & rgAsin(2) & "'>")
		End if
	Next
	Response.write("<input type='image'" & szDis & " src='sc.gif' border=0 vspace=2 height=20 width=200 align=absmiddle value='Add to Amazon.com Shopping Cart' name='submit.add-to-cart' title='Click here to add all items to Amazon.com Shopping Cart.'></nobr></font>")
	Response.write("</td></tr>")
	Response.write("<tr><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>or, Add above items to your Amazon.com Wishlist<sup><a href='#wl' style='text-decoration:none;' title='You may be prompted to sign in to Amazon.com to add items to your wishlist'>2</a></sup> : <input type='image'" & szDis & " src='wl.gif' border=0 vspace=2 height=20 width=200 align=absmiddle name='submit.add-to-registry.wishlist' value='Add to Amazon.com Wishlist' title='Click here to add all items to Amazon.com Wishlist.'></nobr></font></td></tr>")
	Response.write("<tr><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>or, Add above items to your Amazon.com Wedding Registry<sup><a href='#wr' style='text-decoration:none;' title='If you do not have an existing registry, you may be prompted to create one'>3</a></sup> : <input type='image'" & szDis & " src='wr.gif' border=0 vspace=2 height=20 width=200 align=absmiddle value='Add to Amazon.com Wedding Registry' name='submit.add-to-registry.wedding' title='Click here to add all items to your Amazon.com Wedding Registry.'></nobr></font></td></tr>")
	Response.write("<tr><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>or, Add above items to your Amazon.com Baby Registry<sup><a href='#br' style='text-decoration:none;' title='If you do not have an existing registry, you will have to create one first'>4</a></sup> : <input type='image'" & szDis & " src='br.gif' border=0 vspace=2 height=20 width=200 align=absmiddle name='submit.add-to-registry.babyreg' value='Add to Amazon.com Baby Registry' title='Click here to add all items to Amazon.com Baby Registry.'></nobr></font></td></tr></form>")
	Response.write("<tr><td><font size=1 style='font-size:4px;'> </font></td></tr>")

	Response.write("<tr><form method='POST' action='yourlist.asp'><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>or, Remove All above items from Your List: <input type='image'" & szDis & " src='rm.gif' border=0 vspace=2 height=20 width=200 align=absmiddle name='submit.removeall' value='Remove All Items' title='Click here to Remove all items from Your List.'><input type='hidden' value='" & szTerm & "' name='field-keywords'><input type='hidden' value='true' name='removeall'></nobr></font></td></tr></form>")

	Response.write("<tr><form method='POST' target='_new' action='format.asp'><td align=right><hr size=1 width=670 noshade='true'><font face='arial,helvetica' size=2 color='#006699'><nobr>or, Create an HTML-formatted list of all items:   Link to <input type='hidden' name='fmt' value='html'><input type='radio' name='domain' value='k' checked='true'>Amazon Light <input type='radio' name='domain' value='a'>Amazon.com. <br>Separate links by <input type='radio' name='sep' value='c' checked='true'>commas or <input type='radio' name='sep' value='b'>bullets.<br>Associate ID (if applicable) <input type=text value='kokogiak-20' size=15 style='font-size:12px;font-face:arial;' name='assoc'><br><input type='checkbox' name='disImg' value='true'> Display Images. <input type='hidden' name='asins' value='")

''step through cookie array and spit ASINs
	For bc = 76 to 1 step -1
		If (rgAsinList2(bc)<>"") Then
			rgAsin = Split(rgAsinList2(bc),"|")
			Response.write(rgAsin(0) & ",")
		End if
	Next
	For bc = 76 to 1 step -1
		If (rgAsinList1(bc)<>"") Then
			rgAsin = Split(rgAsinList1(bc),"|")
				Response.write(rgAsin(0) & ",")
		End if
	Next

	Response.write("'><input type='image'" & szDis & " src='htm.gif' border=0 vspace=2 height=20 width=200 align=absmiddle value='HTML List of Items' name='submit.ISBNs' title='Click here to get an HTML-formatted list of all items.'></nobr></font></td></form></tr>")


	Response.write("<tr><form method='POST' target='_new' action='format.asp'><td align=right><font face='arial,helvetica' size=2 color='#006699'><nobr>or, Create a list of all <input type='radio' name='fmt' value='asin' checked='true'>ASINs <input type='radio' name='fmt' value='isbn'>ISBNs <input type='radio' name='fmt' value='upc'>UPCs: <input type='hidden' name='asins' value='")

''step through cookie array and spit ASINs
	For bc = 76 to 1 step -1
		If (rgAsinList2(bc)<>"") Then
			rgAsin = Split(rgAsinList2(bc),"|")
			Response.write(rgAsin(0) & ",")
		End if
	Next
	For bc = 76 to 1 step -1
		If (rgAsinList1(bc)<>"") Then
			rgAsin = Split(rgAsinList1(bc),"|")
				Response.write(rgAsin(0) & ",")
		End if
	Next

	Response.write("'><input type='image'" & szDis & " src='isb.gif' border=0 vspace=2 height=20 width=200 align=absmiddle value='List of ISBNs/UPCs' name='submit.ISBNs' title='Click here to get a list of all ASINs/ISBNs/UPCs.'></nobr></font></td></tr>")


%>
<tr><td bgcolor='#efeecf'><b><font size=1 style='font-size:4px;'> </font></td></tr></table></center>
<hr size=1 color=#006699 noshade=true width=100% >
<center><table border=0 width=670><tr><td>
<font size=1 face='arial,helvetica' style='font-size:11px;'>
<a name='cart'><br>
<b>1.</b> Adding Items to your Amazon.com <a href='http://www.amazon.com/exec/obidos/shopping-basket/' target='_new'>Shopping Cart</a> does not require you to be currently signed in to Amazon.com - however you must sign in with a valid account in order to complete your purchase.<br>
<a name='wl'><br>
<b>2.</b> Adding Items to your Amazon.com <a href='http://www.amazon.com/exec/obidos/wishlist/' target='_new'>Wishlist</a> <i>does</i> require you to sign in to Amazon.com. If you are not currently signed in, you may be prompted to sign in - then the items will be automatically added to your Wishlist. One small bug on Amazon's part - if you have an item with a quantity higher than 1, you may see a false message on Amazon's site saying "Thanks for adding theis item with a quantity of 1". When you click through to your actual Wishlist, you will see the proper quantity reflected there.<br>
<a name='wr'><br>
<b>3.</b> Adding Items to your Amazon.com <a href='http://www.amazon.com/exec/obidos/tg/browse/-/885446/' target='_new'>Wedding Registry</a> requires that you be signed in and either have an existing Wedding Registry, or take a few steps to create one. Once you have signed in or created one, items will be automatically added to your Wedding Registry.<br>
<a name='br'><br>
<b>4.</b> Adding Items to your Amazon.com <a href='http://www.amazon.com/exec/obidos/registry/babyreg/' target='_new'>Baby Registry</a> requires that you be signed in and have an existing Baby Registry. You have to take a few steps to create one, then once you have created one and signed in, return to this page and items can be added to your Baby Registry.<p>
</font>
</td></tr></table></center>

<%

'+------------------
'| Fetch the XML doc and info from Amazon for each ASIN
'+------------------

Sub ListItem(szGetString,quant)

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

			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 "Catalog" szCatalog = o16.item(j).text
				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 "Publisher" szPublisher = 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 "ReleaseDate" szReleaseDate = o16.item(j).text
				Case "Availability" szAvailability = o16.item(j).text
				Case "ImageUrlSmall" szImageUrlSmall = 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 "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
				End Select
			Next
			If (szAsin<>"") Then
				szTaggedurl="detpage.asp?sb=" & szSB & "&asin=" & szAsin & "&field-keywords=" & szTerm & "&schMod=" & szSchMode & "&type=" & szSchType
			End if

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

			Response.write ("</td><td align=right width=20><form method='get' action='yourlist.asp'><input type=text size='3' style='width:27px;text-align:right;' value='" & quant & "' name='qty'></td><td width=540 ><font face='arial,helvetica' size=2 style='font-size:11px;'><b><a href='" & szTaggedurl & "'>" & szProductName & "</a></b>")

			If (szCatalog<>"") Then
				Response.write (" - " & szCatalog & "<br>")
			Else
				If (szBinding<>"") Then
					Response.write (", " & szBinding & "<br>")
				Else
					Response.write ("<br>")
				End if
			End if

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

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

			If (szManufacturer<>"") Then
				Response.write ("<font face='arial,helvetica' size=1 style='font-size:11px;'>" & szManufacturer & "</font><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 szOurPrice <> "" Then
				Response.write ("<font color='darkred'>" & szOurPrice & "</font>")
			End if

			If (szAvailability <> "Available") Then
				Response.write ("     <nobr><font color='red' face='arial,helvetica' size=1 style='font-size:10px;cursor:help' title='Availability may affect your ability to add this to Amazon Shopping Cart'>* " & szAvailability & " *</font></nobr><br>")
			Else
				Response.write ("<br>")
			End if

			Response.write ("<input type='hidden' name='rmasin' value='1'><input type='hidden' name='asin' value='" & szAsin & "'><input type='hidden' name='field-keywords' value='" & szTerm & "'><input type='hidden' name='schMod' value='" & szSchMode & "'><input type='hidden' name='type' value='" & szSchType & "'><input type='hidden' name='sb' value='" & szSB & "'></td><td align=right width=100><input type='image' src='uq.gif' border=0 height=20 width=100 name='update.list' value='Update' alt='Click here to update the quantity of this item (if you changed it).'><p><input type='image' src='ri.gif' border=0 height=20 width=100 name='remove.from.list' value='Remove' alt='Click here to remove this item from your list.'></td></tr></form></table><hr size=1 color=#cccccc noshade=true width=670 >")
End Sub

%>

</td></tr>
</table><font face='arial,helvetica' size=2>
<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>

<br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> <br><br> 

</center></body></html>