Casi di omonimia in ListBox

[Enrique_Rojas]

Qualcuno sa dirmi, per favore, se è possibile inserire in una listbox due valori diversi di due campi diversi di una tabella di un database?
Al momento recupero i dati popolando la listbox da un determinato campo del database in questo modo:

<select size="1" name="utente">
                <option>Seleziona Cognome</option>
                <%
sql = "SELECT cognome FROM anagrafica GROUP by cognome ORDER by cognome asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF%>

<option value=<%=replace(rs("cognome"), " ", "_")%>><%=rs("cognome")%> </option>
<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>

              </select>

ma raggruppando i cognomi, ho dei casi di omonimia, per questo vorrei che si visualizzasse almeno anche il nome nella listbox.
Grazie a tutti.

[buji]

Aggiungi il nome nella select e nella ListBox

sql = "SELECT cognome,nome FROM anagrafica GROUP by cognome ORDER by cognome asc"


<option value=<%=replace(rs("cognome"), " ", "_")&replace(rs("nome"), " ", "_")%>><%=rs("cognome")&rs("nome")%> </option>

Anche se per la value ti converrebbe usare un identificativo

[Enrique_Rojas]

Originariamente inviato da buji
Aggiungi il nome nella select e nella ListBox

sql = "SELECT cognome,nome FROM anagrafica GROUP by cognome ORDER by cognome asc"


<option value=<%=replace(rs("cognome"), " ", "_")&replace(rs("nome"), " ", "_")%>><%=rs("cognome")&rs("nome")%> </option>

Anche se per la value ti converrebbe usare un identificativo

Grazie, ho scritto come mi hai suggerito ma ecco le difficoltà:

1) nella query non funziona più il GROUP BY;
2) nella listbox vedo anche il nome, ma è attaccato al cognome per cui la query di estrazione non estrae più nulla...

[Enrique_Rojas]

Per lo spazio ho risolto così:

<option value=<%=replace(rs("cognome"), " ", "_") & replace(rs("nome"), " ", "_")%>><%=rs("cognome") &" "& rs("nome")%> </option>

ma la query continua a scrivere tutto unito e non estrae nulla:

Dim strCognome 
strCognome = Replace(Request("utente"), "_", " ")

:master:

[Enrique_Rojas]

up