Recuperare valori da una select

[Fulvio59]

Salve,

è possibile recuperare il codice e la descrizione gestiti all'interno di una select ?

Dal codice che segue ...


<div style="margin-left:10px; ">Gruppo:
<select size=1 style="font-family:tahoma; font-size:11px; margin-left:8px; " name="gruppo">
<%
dim RSGruppo
set RSGruppo = Server.CreateObject("ADODB.RECORDSET")
RSGruppo.ActiveConnection=Application("AppDSN")
RSGrupppen("Select * from Gruppo order by gruppo")
Response.Write("<option selected></option>")
while not RSGruppo.EOF
Response.Write "<option value=" & trim(RSGruppo(0)) & ">" & RSGruppo(1) & "</option>" & vbcrlf
RSGruppo.movenext
wend
RSGruppo.close
set RSGruppo=nothing
%>
</select>
</div>



quando dopo l'action leggo i campi con request.form voglio recuperare sia il codice (RSGruppo(0)) che la descrizione (RSGruppo(1))

Come faccio ?

 

[lukeonweb]

Il codice lo recuperi con il Request.Form tradizionale:

Dim gruppo
gruppo = Request.Form("gruppo")

ma la descrizione non puoi recuperarla.

Dei fare una cosa del genere:

<option value="<%=RSGruppo(0)%>/<%=RSGruppo(1)%>"><%=RSGruppo(1)%></option>

Nel value ci metti sia il codice della descrizione che poi dividi (es. con /) con lo Split:

Dim gruppo, arr_gruppo, codice, descrizione
gruppo = Request.Form("gruppo")
arr_gruppo = Split(gruppo, "/")
codice = arr_gruppo(0)
descrizione = arr_gruppo(1)

Fammi sapere.

 

[Fulvio59]

Grazie della risposta,

in effetti ci avevo già pensato, ma non volevo visualizzare il codice nella combo.
Quindi l'alternativa è tra rileggere il dato o visualizzare il codice insieme alla descrizione all'interno della combo.
Ci penserò.

 

[lukeonweb]

Se vuoi leggere il dato attraverso una selectbox con Request.Form allora si (per curiosità: vieni dal VB6?), ma se i dati li hai nel database, una volta che nella pagina di request recuperi il codice, la descrizione puoi recuperarla dal database.

 

[Fulvio59]

Non vengo da VB6, da dove vengo e come mi è capitato di dovermi occupare di sviluppo web è una storia lunga,
e non credo valga la pena di annoiare gli altri.

Comunque grazie, rileggerò la descrizione.