Mantenere la scelta effetuata da una combo.

[maximum]

Ho questo codice (che è parte comunque della pagina "combo.asp"):

<form name="ricarica" method="post" action="combo.asp">
<select name="scelta1" onChange="this.form.submit();">
<option value="-1">------</option>
<% if not objrs1.eof then 
	  do while not objrs1.eof %>
	  		 <option value="<%=objrs1("Id_scelta_1")%>"><%=objrs1("Descr_scelta_1")%></option>
<%		 objrs1.movenext 
	  loop
   end if %>
</select>
</form>

Vorrei fare in modo che quando si seleziona una scelta dalla combo, popolata dinamicamente da DB, la stessa, al ricaricamento della pagina, resti valorizzata. Non come accade adesso che mi ripropone la option con i trattini (------).

Cosa devo implementare e come?? :master:

Ho già fatto delle prove, ma nessuna a buon fine.

Help!!!

[longline]

Mentre crei la combo, controlli riga per riga che sia uguale al valore che ti interessa evidenziare.
Se è uguale devi fare in modo di ottenere questo:

<option value="valoreN" selected>TestoN</option>

[maximum]

Si, ma io la riga la scrivo solo una volta, e mi sfugge come fare, mi puoi fare qualche esempio, sul codice sopra postato?

[longline]

<form name="ricarica" method="post" action="combo.asp">
<select name="scelta1" onChange="this.form.submit();">
<option value="-1">------</option>
<% 
  if not objrs1.eof then 
    do while not objrs1.eof
      strSelected = "" 
      If objrs1("Id_scelta_1") = ValoreDaSelezionare Then strSelected = " selected"
%>
      <option value="<%=objrs1("Id_scelta_1")%>"<%=strSelected %>><%=objrs1("Descr_scelta_1")%></option>
<%
      objrs1.movenext 
    loop
  end if %>
</select>
</form>

[maximum]

Non funziona!!!

Si posiziona sui trattini, qualsiasi scelta io effettui.

[longline]

If CLng(objrs1("Id_scelta_1")) = CLng(ValoreDaSelezionare) Then...

[maximum]

Così mi restituisce "Tipo non corrispondente" alla linea in cui effettuo quel cofronto.

[longline]

Ripristina l'ultimo ASP funzionante e posta l'html della combo risultante

[maximum]

Ecco l'HTML generato.

<form name="ricarica" method="post" action="combo.asp">
<select name="scelta1" onChange="this.form.submit();">
<option value="-1">------</option>

	  		 <option value="4" >Web</option>

	  		 <option value="3" >Animali</option>

	  		 <option value="2" >Moto</option>

	  		 <option value="1" >Auto</option>

</select>

<select name="scelta2">
<option value="-1">------</option>

	  		 <option value="12">E-commerce</option>

	  		 <option value="11">Siti Web</option>

	  		 <option value="10">Portali</option>

	  		 <option value="9">Insetti</option>

	  		 <option value="8">Gatti</option>

	  		 <option value="7">Cani</option>

	  		 <option value="6">Honda</option>

	  		 <option value="5">Yamaha</option>

	  		 <option value="4">Kawasaky</option>

	  		 <option value="3">Opel</option>

	  		 <option value="2">Mercedes</option>

	  		 <option value="1">Fiat</option>

</select>
</form>

[longline]

<form name="ricarica" method="post" action="combo.asp">
<select name="scelta1" onChange="this.form.submit();">
<option value="-1">------</option>
<% 
  if not objrs1.eof then 
    do while not objrs1.eof
      strSelected = "" 
      If CStr(objrs1("Id_scelta_1")) = CStr(ValoreDaSelezionare) Then strSelected = " selected"
      Response.Write "<option value=""" & objrs1("Id_scelta_1") & """"
      Response.Write strSelected
      Response.Write ">"
      Response.Write objrs1("Descr_scelta_1")
      Response.Write "</option>"
      objrs1.movenext 
    loop
  end if %>
</select>
</form>

Però postami anche la riga rossa come la usi tu.