Menu a tendina coll DB

[z400d]

Buon giorno sono nuovo e sono assolutamente un profano

Ho un problema sto rendendo disponibili on line dei dati che prelebo da un DB access. Ho esigenza di prelevare i dati da una tabella User

coposta dai seguenti campi : ID , User, Pass, Azienda

Collegata attraverso ID alla Tabella Documenti coposta da nDoc, ID (lollegamento con tabella User), Azienda, nDoc ecc..

Ho creato in fase di iserimento dati un menu a tendina che mi Prelevasse i dati ID e Azienda da tab User e li inserisse in Tab Documenti

Lo script che ho rintracciato in rete e modificato e questo:


<th scope="col"><select name="Azienda, ID" id="Azienda">
<%
sql = "SELECT Azienda,ID FROM User ORDER BY Azienda ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
do while not(rs.eof)
%>
<option value="<%=rs(0)%>"selected><%=rs(1)%></option>

<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

the problem is ...Nel form di inserimento mi compare il menu visualizza l' ID, io vorrei che comparisse sia ID che Azienda. e salvasse i valori ID e azienda in entrambi i campi tab Documenti

Spero di essere stato esaustivo e che qualcuno mi possa aiutare
Grazie

 

[Majinbu]

<th scope="col"><select name="Azienda, ID" id="Azienda">
<%
sql = "SELECT Azienda,ID FROM User ORDER BY Azienda ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
do while not(rs.eof)
%>
<option value="<%=rs(0)%>"selected><%=rs(1)%></option>

<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

Grazie

<option value="<%=rs(0)%>"selected><%=rs(1)%></option> ...non capisco
Dovrebbe essere
<option value="<%=rs("id")%>"selected><%=rs("id")%></option>

 

[z400d]

Lo script originale era questo

<select name="cliente">
<%
dim strCode
strCode="innovatel" 'Password di accesso al db
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn &amp; " DBQ=" &amp; Server.MapPath("nomedatabase.mdb")
strConn=strConn &amp; ";pwd=" &amp; strCode
Conn.Open (strConn)
sql = "SELECT mail_user, nome_user FROM anagrafica ORDER BY nome_user"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
do while not(rs.eof)
%>
<option value="<%=rs(0)%>"><%=rs(1)%></option>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</select>

 

[Majinbu]

OK allora...

<option value="<%=rs("id")%>-<%=rs("azienda")%>"selected><%=rs("id")%>-<%=rs("azienda")%></option>

così mostri id e azienza...
Poi l'inserimento è un altro discorso...e non ho capito se devi farlo fare ad utenti o meno.

 

[z400d]

Innanzi tutto grazie per l'interessamento....

ho provato e funziona

Questa sezione mi serve per popolatre il DB come admin.