Campo Select evento onchange

[kokorina]

Ciao a tutti.
Causa stop del motore di ricerca del forum, mi tocca aprire un nuovo thread.

Ecco il mio problema:
Tramite l'evento onchange sul submit io compilo una successiva select a seconda della scelta effettuata nella prima, e fin qui funziona tutto.
Il problema però è che al ricaricamento della pagina non mi rimane il valore selezionato nella prima select, come posso fare?
vi posto il codice:

    <%    
    ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=adminip;PWD=adminipgest;Initial Catalog=GestioneIP;Data Source=172.23.167.176"
    Set dbCon = Server.CreateObject("ADODB.Connection")
    dbCon.Open ConnectionString
    sql="SELECT DISTINCT Sito FROM Vlan"
    Set RS = dbCon.Execute(sql)
	Response.Write "<select name='Sito' size='1' onChange='submit()'>"
	Response.Write "<option selected value=''>Selezionare un Sito</option>"
	 if not RS.eof then
       RS.MoveFirst
       Do While not RS.eof
         Response.Write "<option value="
         Response.Write RS("Sito")
         Response.Write ">"
		 Response.Write RS("Sito") 
         Response.Write "</option>"
		 RS.MoveNext
       Loop
    end if
	Response.Write "</select>"
   	RS.Close    
    dbCon.Close
	%>
	
          

          [/b] VLAN 
          <%    
    ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=adminip;PWD=adminipgest;Initial Catalog=GestioneIP;Data Source=172.23.167.176"
    Set dbCon = Server.CreateObject("ADODB.Connection")
    dbCon.Open ConnectionString
	sql="SELECT * FROM Network INNER JOIN Vlan ON Network.[ID-Vlan] = Vlan.[ID-Vlan] WHERE Sito ='" + Request.form("Sito") + "'"
	Set RS = dbCon.Execute(sql)
	Response.Write "<select name='Vlan' size='1'>"
    Response.Write "<option selected value=''>Selezionare una Vlan</option>"
    if not RS.eof then
       RS.MoveFirst
       Do While not RS.eof
         CIDR = 32 - ( log(CDbl(RS("Broadcast")) - CDbl(RS("Rete")) + 1)/log(2))
         networkID = Long2DotIP(RS("Rete"))
         Response.Write "<option value="
         Response.Write RS("ID-Vlan")
         Response.Write ">"
         Response.Write Long2DotIP( RS("Rete") )
         Response.Write " / "
         Response.Write CIDR
         Response.Write " - "
         Response.Write RS("Descrizione")
         Response.Write "</option>"
         RS.MoveNext
       Loop
    end if
    Response.Write "</select>"
    RS.Close    
    dbCon.Close
%>

Grazie per l'aiuto
kokorina

[Gluck]

Response.Write "<option value="""
Response.Write RS("Sito")
response.write """"

Response.Write isSelected(RS("Sito"), Request.Form("Sito"))

Response.Write ">"
Response.Write RS("Sito")
Response.Write "</option>"


Function isSelected(sValore, sParametro)
isSelected = ""
if sValore = sParametro then
isSelected = " selected=""selected"" "
end if
end function

[kokorina]

e il parametro iniziale vuoto (ovverso "Selezionare un Sito") come faccio a metterlo come primo valore di default la prima volta?

[kokorina]

fatto..
GRAZIE MILLE