Ciao a tutti.

Ho questo codice ASP:

codice:
Function SELECTED(firstVal, secondVal)
If cSTR(firstVal) = cSTR(secondVal) then
   SELECTED = " SELECTED"
End If
End Function

   sql = "SELECT  "
   sql = sql & " data "
   sql = sql & " FROM "
   sql = sql & " tbl "
   sql = sql & " ORDER BY "
   sql = sql & " data DESC "

   Set rec = Server.CreateObject("ADODB.Recordset")
   rec.Open sql, cn
   
   if not rec.eof then

<select size="1" name="data" 
onChange="window.document.location='pag.asp?data='+this.options[this.selectedIndex].value;">

<option>Seleziona Data</option>

<% 
rec.MoveFirst  
Do While Not rec.EOF

'SE ESISTE UN RECORD CON LA DATA UGUALE ALLA DATI DI OGGI
if rec("data") = Date() then

%>

<option value="<%=rec("data")%>" selected="selected">
 <%=rec("data")%></option>


<% else %>

<option value="<%=rec("data")%>"<%=SELECTED(rec("data"), request.querystring("data"))%>>
 <%=rec("data")%></option>
                    
<%
end if

rec.MoveNext
Loop
%>

</select> 


<%

end if

rec.Close
set rec = Nothing

cn.Close
set cn = Nothing

%>

In pratica quando nella tbl esiste un record data uguale alla data di oggi la select seleziona di default la data odierna, altrimenti non seleziona alcun valore nella select.

Il problema è che quando provo a selezionare da un'altra select prevista nella pagina ASP un valore qualsiasi, la data di oggi che appare selezionata nella select "data" non viene passata in querystring e la pagina va in errore.

Dove sbaglio?
Grazie---