Select dinamiche ed evento OnChange

[wegawhite]

Ciao.

Ho queste select dinamiche, ma non riesco a memorizzare il valore selezionato all'interno della select, cioè se seleziono un valore dalla prima select non riesco a conservarlo selezionato se scelgo un valore dalla seconda select, dove sbaglio?

' PRIMA QUERY PER PRIMA SELECT SORT
   strSql = "SELECT COUNTRY_NAME FROM Foglio2 GROUP BY COUNTRY_NAME ORDER BY COUNTRY_NAME ASC"
   Set objRs = Server.CreateObject("ADODB.Recordset")
   objRs.Open strSql, Conn, 3, 3
%>
	
	<select size="1" name="sort" onChange="window.document.location='pageasp?sort='+this.options[this.selectedIndex].value;">
    
    <% sort_sel = request.querystring("sort") %>
    <% if sort_sel <> "" then %>
    <option value="<%=sort_sel%>" selected="selected"><%=sort_sel%></option>
    <% else %>
    <option selected>Seleziona valore</option>
        
<%
end if

If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = Trim(objRs("COUNTRY_NAME")) %>"><%  = Trim(objRs("COUNTRY_NAME")) %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
%>

    </select>

<%
' SECONDA QUERY PER LA SELECT IP_FROM
   strSql = "SELECT IP_FROM FROM Foglio2 GROUP BY IP_FROM ORDER BY IP_FROM ASC"
   Set objRs = Server.CreateObject("ADODB.Recordset")
   objRs.Open strSql, Conn, 3, 3
%>

<select name=ip_from onChange="window.document.location='pag_imente.asp?ip_from='+this.options[this.selectedIndex].value;">

    <% ip_from_sel = request.querystring("ip_from") %>
    <% if ip_from_sel <> "" then %>
    <option value="<%=ip_from_sel%>" selected="selected"><%=ip_from_sel%></option>
    <% else %>
    <option selected>Seleziona valore</option> 
        
<%
end if

If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = Trim(objRs("IP_FROM")) %>"><%  = Trim(objRs("IP_FROM")) %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
%>
</select>

<%
' TERZA QUERY PER LA SELECT IP_TO
   strSql = "SELECT IP_TO FROM Foglio2 GROUP BY IP_TO ORDER BY IP_TO ASC"
   Set objRs = Server.CreateObject("ADODB.Recordset")
   objRs.Open strSql, Conn, 3, 3
%>

<select name=ip_to onChange="window.document.location='pag_imente.asp?ip_to='+this.options[this.selectedIndex].value;">
    
    <% ip_to_sel = request.querystring("ip_to") %>
    <% if ip_to_sel <> "" then %>
    <option value="<%=ip_to_sel%>" selected="selected"><%=ip_to_sel%></option>    
    <% else %>
    <option selected>Seleziona valore</option>   
        
<%
end if

If Not objRs.EOF Then
Do While Not objRs.EOF
%>
          <option value= "<% = Trim(objRs("IP_TO")) %>"><%  = Trim(objRs("IP_TO")) %></option>
<%
objRs.MoveNext
Loop
End If
objRs.Close
%>
</select>