Memorizzare etichetta e valore di una Select

[webmamo]

Salve, ho provato a vedere e rivedere una soluzione che risolvesse il mio problema, ma non ne vengo a capo.
Ho un form (form_ordini) con all'interno una select di nome "sel"(etichetta: campo1 della mia tabella e valore: campo2 della stessa tabella)
per una questione statistica, vorrei che alla scelta dell'utente l'etichetta della mia select venisse memorizzata nella textbox di nome "sceltaut" e il valore venga memorizzato anche nella textbox "sceltaval", infatti sull'onchange della mia select "sel" ho inserito:

"document.form_ordini.sceltaval.value=sel.valu e" ed effettivamente alla selezione della select la textbox "sceltaval" si compila con il valore della scelta, ma per il valore dell'etichetta come posso fare?

Ho trovato qualcosa in javascript e addirittura ho provato a mettere doppio valore sulla select ma non riesco a scrivere una funzione split che funzioni.

Grazie a chi è così gentile da aiutarmi.

[cavicchiandrea]

- Per etichetta intendi il testo della option?
- Cosa centra con asp?

[webmamo]

Si.
Questo è il codice del recordset:

<%
Dim corriere
Dim corriere_cmd
Dim corriere_numRows


Set corriere_cmd = Server.CreateObject ("ADODB.Command")
corriere_cmd.ActiveConnection = MM_Connessione_STRING
corriere_cmd.CommandText = "SELECT * FROM VETTORI ORDER BY VETTORI ASC"
corriere_cmd.Prepared = true


Set corriere = corriere_cmd.Execute
corriere_numRows = 0
%>

e questa è la mia select:

~<select name="sel" id="sel" onChange=document.form_ordini.sceltaval.value=sel. value;document.form_ordini.sceltaut.value=sel.text style=" width:420px">
<option value="">Seleziona Corriere</option>
<%
While (NOT corriere.EOF)
%>
<option value="<%=(corriere.Fields.Item("LINK").Value)%>"> <%=(corriere.Fields.Item("VETTORI").Value)%></option>
<%
corriere.MoveNext()
Wend
If (corriere.CursorType > 0) Then
corriere.MoveFirst
Else
corriere.Requery
End If
%>
</select

alla fine nella textbox sceltaval, effettivamente trovo il valore del record "LINK" ma per quanto riguarda sceltaut trovo scritto "undefined"

[webmamo]

Cerca cerca, alla fine ho trovato la soluzione:

nomeSelect.options[nomeSelect.selectedIndex].value (per il valore della select)
nomeSelect.text[nomeSelect.selectedIndex].value (per l'etichetta o testo della option della select

messe entrambe nell'onchange della selelect in questo modo:

onChange=document.form_ordini.sceltaval.value=sel. value;document.form_ordini.sceltaut.value=sel.opti ons[sel.selectedIndex].text

in questo modo come seleziono l'utente, in automatico sia il valore che il testo associato mi vengono trascritti nelle mie due caselle di testo... Semplice modo per passare 2 valori di una select in 2 textbox (o hidden) senza usare split