combo box e selected

[pheeko]

Io ho una combobox caricata dinamicamente,
al momento dell' inserimento di un nuovo utente è ok, ovvero:
profilo 1
profilo 2
profilo 3
ecc
però devo dare all' utente la possibilità di modificare i propri dati e
quando carica la pagina del profili in modalità modifica
la combo ha come selezionato di default il primo valore della lista,
nel caso che il profilo registrato non è il primo ma il secondo
quando l'utente va a fare l'upgrade dei dati se non fa attenzione
a modificare la combo box nel profilo già registrato viene cambiato
il profilo con quello di default.
esiste l'opzione per il combobox selected ma non posso usarla
perche anche la combo la creo con dinamicamente,
usando selected mi spara il valore di selecte per il numero dei campi..
come devo fare, qualcuno ha qualche idea?

[Dirk Pitt]

Intendi valorizzare la combobox con il valore riportato nel campo del db?
Se così, anche se l'utente non modifica la select, il valore nel db non viene modificato, o meglio viene modificato ma con lo stesso valore che aveva prima.

Inserisci questa funzione nella pagina delle modifiche

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

Poi crea ola select in questo modo:

<select name="status">
<option value="0"<%=SELECTED("0", objRs("campo_del_db") )%>>DISABLED</option>
<option value="1"<%=SELECTED("1", objRs("campo_del_db") )%>>ENABLED</option>
</select>

Ovviamente la tua select sarà diversa come tipologia di voci, basta adattarla.

[pheeko]

Sono alle primissime armi con ASP, il combo box lo creo così:

Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& baseroot&"/mdb-database/account.mdb"
Set rec13=Server.CreateObject("ADODB.Recordset")
Set rec4=Server.CreateObject("ADODB.Recordset")
Set rec4= conn3.Execute("SELECT * from account")
set rec13 = conn3.Execute("SELECT * from units")
selected=rec4("Unit")
response.Write("<TR><TD class=""lista"">"&valnamit&":</TD>")
Response.Write("<TD><Select name=""Unit"">")
Do while NOT rec13.EOF
user=rec13("uni_testo")
id=rec13("id")
Response.write("<option value=" & id & ">" & user &"</option>")

rec13.Movenext
Loop
Response.Write("</Select> (*)</TD></TR>")
rec13.Close
Set rec13 = Nothing
conn3.Close
Set conn3 = Nothing

[Dirk Pitt]

Forse non ho capito cosa vuoi fare con quel codice. Così com'è scritto semplicemente crei tante option nella select quanti sono i record nella query "SELECT * from units".
E poi cosa vuoi fare?
La riga selected=rec4("Unit") a cosa dovrebbe servirti?