Memorizza valore in select

[[trodat]]

Ciao, perchè non riesco a memorizzare all'interno della select il valore selezionato?

<%

sql = "SELECT Anno FROM myTbl GROUP BY Anno ORDER BY Anno asc" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3

anno = 0
pre = 0
%>

                      
 <select size="1" name="Anno" onChange="window.document.location='page.asp?anno='+this.options[this.selectedIndex].value;">
 <option>Seleziona Anno</option>

<%

while not rec.eof
Anno = rec("anno")

if anno <> pre then %>
<option value="<%= anno %>"> <% if Request.QueryString("anno") =  rec("anno") then Response.Write("selected")%>
<%= Anno %></option>
<%

pre = anno
end if
rec.movenext
wend

rec.Close
set rec = Nothing

%>


</select>

[Santino83_02]

if cint(Request.QueryString("anno")) =  rec("anno")

[[trodat]]

Thanks!

[[trodat]]

Ho un problema.

Quando non seleziono nessun valore dalla select "Anno" e vado avanti con la paginazione la pagina va in errore:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Tipo non corrispondente.: 'CInt'

Mentre se seelziono un valore dalla seelct "Anno" e provo a scorrere la pagianzione funziona bene, cosa sbaglio?

<%

sql = "SELECT Anno FROM myTbl GROUP BY Anno ORDER BY Anno asc" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3

anno = 0
pre = 0
%>

                      
 <select size="1" name="Anno" onChange="window.document.location='page.asp?anno='+this.options[this.selectedIndex].value;">
 <option>Seleziona Anno</option>

<%

while not rec.eof
Anno = rec("anno")

if anno <> pre then %>
<option value="<%= anno %>"> <% if cint(Request.QueryString("anno")) =  rec("anno") then Response.Write("selected")%>
<%= Anno %></option>
<%

pre = anno
end if
rec.movenext
wend

rec.Close
set rec = Nothing

%>


</select>

[littletoro]

te lo dice l'errore stesso...se non gli passi un valore non riesce ad eseguire il casting della variabile.
prova ad impostare a 0000 il valore di <option value="0000" >Seleziona Anno</option> oppure fai un controllo javascript prima di inviare i dati..

[[trodat]]

Originariamente inviato da littletoro
te lo dice l'errore stesso...se non gli passi un valore non riesce ad eseguire il casting della variabile.
prova ad impostare a 0000 il valore di <option value="0000" >Seleziona Anno</option> oppure fai un controllo javascript prima di inviare i dati..

Controllo in jaavscript? Puoi spiegarti meglio per favore?

[Santino83_02]

javascript non serve qui...

Anno_querystring=0 'o quello che preferisci
if len(trim(request.querystring("anno")))>0 then Anno_querystring=cint(request.querystringanno"))

edit: avevo sbagliato

[[trodat]]

Non riesco a farlo funzionare, mi dà sempre lo stesso errore:

<%

sql = "SELECT Anno FROM myTbl GROUP BY Anno ORDER BY Anno asc" 
Set rec = Server.CreateObject("ADODB.Recordset")
rec.Open sql, conn, 3, 3

anno = 0
pre = 0
%>

                      
 <select size="1" name="Anno" onChange="window.document.location='page.asp?anno='+this.options[this.selectedIndex].value;">
 <option>Seleziona Anno</option>

<%

while not rec.eof
Anno = rec("anno")

Anno_querystring = 0 

if len(trim(request.querystring("anno")))>0 then Anno_querystring=cint(request.querystring("anno"))

if anno <> pre then %>
<option value="<%= anno %>"> <% if cint(Request.QueryString("anno")) =  rec("anno") then Response.Write("selected")%>
<%= Anno %></option>
<%

pre = anno
end if
rec.movenext
wend

rec.Close
set rec = Nothing

%>


</select>

[Santino83_02]

al posto di

if cint(Request.QueryString("anno"))

metti

if Anno_Querystring

[[trodat]]

Adesso va bene ma non mi memorizza più il valore all'interno della select "Anno".