Gary:
Obviously, there's something I am misunderstanding about how this whole thing works. Here's brief demo code of what I'm trying to do. I keep getting the same selected menu. Maybe if you can take a look you'll be able to see what I'm doing wrong. [real code has long and complex GetAmazon(BrowseNode) function which is working fine.] My only problem is dropdown selectbox. If you don't have time or suggestions, I'll just do a workaround.
<%@Language=VBscript%>
<%Option Explicit%>
<HTML>
<script language=vbscript></script>
<HEAD>
<title>browse</title></HEAD>
<BODY>
<%
'--------------------------------------------------------
' Recursive Amazon Web Services Simple ASP Parser
'--------------------------------------------------------
'--- Option Explicit At Top Forces us to declare all variables.
'--------------------------------------------------------
Dim AssociatesID ' If you want $$$
Dim DevToken ' The token you received
Dim Catalog ' Catalog you're searching
Dim XSLURL ' Location of your XSL
AssociatesID = "wildmindworkshop"
DevToken = "D1JBE2M3HUXKHK"
Catalog = "books"
XSLURL = "
'--------------------------------------------------------
'--- Declare some things we'll work with
Dim BrowseNode, Count, x, Page
'--- Get the Page so that you can page through results!
Page = request("page"
if len(Page) = 0 then Page = 1 else Page = cint(Page)
'--- Get the BrowseNode
BrowseNode = request("browsenode"
' Random function to use for debugging
Function GiveRandom(high, low)
Randomize
GiveRandom = Int((high - low + 1) * Rnd + low)
End Function
'--------------------------------------------------------
' Search Amazon's XML Function
'--------------------------------------------------------
Function GetAmazon(BrowseNode)
' This function does the main processing in the real program
' It populates arrays from XML data downloaded from Amazon
' and parses the XML nodes
If BrowseNode="Exit" Then
Count=0
Exit Function
End If
' Debug simulate increment counter for each book found in each "batch"
Count=GiveRandom(1,10)
response.write "*** DEBUG: BrowseNode= " & BrowseNode & "; Count = " & Count
End Function
'--------------------------------------------------------
'--- This calls the actual GetAmazon Function and populates our Arrays.
'--- BrowseNode parameter comes from dropdown menu form
GetAmazon(BrowseNode)
%>
<form method="POST" action="testdropdown.asp">
<select name="browsenode" >
<option selected value="<%=request("browsenode"
%>></option>
<option value="1000">Top Book Node</option>
<option value="1">Art and Photography</option>
<option value="45">Bargain Books Outlet</option>
<option value="2">Biographies and Memoirs</option>
<option value="3">Business and Investing</option>
<option value="4">Children's Books</option>
<option value="Exit">Exit Debug</option>
</select>
<input type="submit" value="Go"></p>
</form>
<%
'--- Write out the desired book information
response.write "<b> Page " & Page & "<BR>"
For x = 1 to Count
response.write "*** DEBUG: write out book info on each of up to 10 books in a batch <BR>"
Next
if Count = 0 then
%>Sorry no results. Try again...
<% else
if Page > 1 then %>
[<a href="testdropdown.asp?BrowseNode=<%=BrowseNode%>&page=<%=Page-1%>">Previous</a>]
<% end if %><% if Count = 10 then %>
[<a href="testdropdown.asp?BrowseNode=<%=BrowseNode%>&page=<%=Page+1%>">More</a>]<% end if %><% end if %>
</BODY>
</HTML>
