Recuperare variabili con Request.QueryString

[Semex82]

Ciao a tutti,

ho un problema ho creato un piccolo programma per paginare un menù dinamico, provandolo va tutto ok in test ho sempre dichiarato delle variabili fisse. Quando però è arrivato il momento di includere il menù nelle pagine del sito e quindi di recuperare le variabili con Request.QueryString il programma non funziona come se non le riconoscesse.
Allego il file nella speranza che qualcuno possa farmi capire in cosa sbaglio; sono sicuro sarà una sciocchezza ma sono 2 giorni che ci sbatto la testa e nulla.

grazie a tutti

<%
'intmenuI=2 <====== con questi funziona tutto
'intmenuII=5 <====== con questi funziona tutto
intmenuI = Request.QueryString("menuI")
intmenuII = Request.QueryString("menuII")%>

<table width="235" border="0" cellpadding="0" cellspacing="0">

<tr>
<td width="20" valign="top">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

<tr>
<td width="100%" height="100%" valign="top">[img]immagini/filettosx.jpg[/img]</td>
<td width="10"></td>
</tr>
</table></td>
<td width="5" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>
<td width="5" height="111"></td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>
<td width="200" height="1" valign="top">[img]immagini/lineapunt.gif[/img]</td>
</tr>
<tr>
<td height="30" valign="middle" class="SAM">menuI:<%= intmenuI %> e
menuII:<%= intmenuII%></td>
</tr>
<tr>
<td width="200" height="1" valign="top">[img]immagini/lineapunt.gif[/img]</td>
</tr>
<tr>
<td height="30" valign="middle" class="SAM">[img]immagini/freccia.gif[/img]Home</td>
</tr>
<tr>
<td width="200" height="1" valign="top">[img]immagini/lineapunt.gif[/img]</td>
</tr>
<tr>
<td height="30" valign="middle" class="SAM">[img]immagini/freccia.gif[/img]<a href="storia.asp">La
nostra storia</a></td>
</tr>
<tr>
<td height="1" valign="top">[img]immagini/lineapunt.gif[/img]</td>
</tr>
<tr>
<td height="30" valign="middle" class="SAM">[img]immagini/freccia.gif[/img]<a href="catalogo.asp">Catalogo
prodotti </a></td>
</tr>
<%'qui inizia il codice per loopare il primo livello del menu'
call apridb(conn)

Set rs = server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Categorie WHERE IDCategoria <>1 and IDSubCategoria=1", conn, 1

Do While NOT rs.eof

%>
<tr>
<td height="20" valign="middle" class="SAM">[img]immagini/menuspacer.gif[/img]<span class="menuIIlivello">
<a href="catalogo.asp?menuI=<% = rs("IDCategoria") %>">
<%Response.write rs("DescrizioneCategoria")%>
</a> </span> </td>
</tr>
<%'qui inizia il codice per loopare il secondo livello del menu'
Set rs2 = server.CreateObject("ADODB.Recordset")
rs2.Open "SELECT * FROM Categorie WHERE IDCategoria <>1 and IDSubCategoria="&rs("IDCategoria"), conn, 1

Do While NOT rs2.eof
If rs("IDCategoria") <> intmenuI Then Exit Do
%>
<tr>
<td height="20" valign="middle">[img]immagini/menuspacer.gif[/img]<span class="menuIIIlivello">
<a href="catalogo.asp?menuII=<%Response.write rs2("IDCategoria")%>&menuI=<%Response.write rs("IDCategoria")%>" class="menuIIIlivello">
<%Response.write rs2("DescrizioneCategoria")%>
</a></span><span class="menuIIlivello"> </span></td>
</tr>
<%'qui inizia il codice per loopare i prodotti
Set rs3 = server.CreateObject("ADODB.Recordset")
rs3.Open "SELECT * FROM Prodotti WHERE IDCategoria="&rs2("IDCategoria"), conn, 1

Do While NOT rs3.eof
If rs2("IDCategoria") <> intmenuII Then Exit Do
%>
<tr>
<td height="20" valign="middle">[img]immagini/menuspacer.gif[/img][img]immagini/menuspacer.gif[/img]<span class="menuIIIlivello">
<a href="catalogo.asp?menuII=<%Response.write rs2("IDCategoria")%>&menuI=<%Response.write rs("IDCategoria")%>&IDProdotto=<%Response.write rs3("IDProdotto")%>" class="menuIIIlivello">
<% Response.Write rs3("NomeProdotto")%>
</a></span></td>
</tr>
<%'Chiudo tutti i recordset
rs3.Movenext
Loop

rs3.Close
Set rs3 = Nothing
%>
<%
rs2.Movenext
Loop

rs2.Close
Set rs2 = Nothing
%>
<%
rs.Movenext
Loop

rs.Close
Set rs = Nothing
%>
<tr>
<td height="1" valign="top">[img]immagini/lineapunt.gif[/img]</td>
</tr>
<tr>
<td height="30" valign="middle" class="SAM">[img]immagini/freccia.gif[/img]<a href="trovaci">Dove
trovarci </a></td>
</tr>
<tr>
<td height="1" valign="top">[img]immagini/lineapunt.gif[/img]</td>
</tr>
<tr>
<td height="30" valign="middle" class="SAM">[img]immagini/freccia.gif[/img]Contattaci</td>
</tr>
<tr>
<td height="1" valign="top">[img]immagini/lineapunt.gif[/img]</td>
</tr>
</table></td>
</tr>
<tr>
<td></td>
<td></td>
<td width="210"></td>
</tr>
</table>
<%'Chiudo la connessione al DB
call chiudidb(conn) %>

[willybit]

devi confrontare stringhe con stringhe o numeri con numeri altrimenti avrai sempre false come risultato....
o fai queste if così

If CStr(rs("IDCategoria")) <> CStr(intmenuI) Then
...
If CStr(rs("IDCategoria")) <> CStr(intmenuII) Then

o trasformi in interi le variabili all'inizio

intmenuI = Request.QueryString("menuI")
intmenuII = Request.QueryString("menuII")
if intmenuI<>"" and isNumeric(intmenuI) then intmenuI=CInt(intmenuI)
if intmenuII<>"" and isNumeric(intmenuII) then intmenuII=CInt(intmenuII)

[Semex82]

Grazie mille, immaginavo fosse qualcosa che c'entrasse con il formato delle variabili ma non conosco ancora bene il vbs.
Grazie ancora