Gentili amici, volevo chiedere come poter realizzare due campi select di un form i qyali, distintamente leggono dei dati da due tabelle di uno stesso database.
Uno script l'ho realizzato in questo modo:
<%
Dim conn
Dim rs
Dim sSql,SCategoria

'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/public/calzature.mdb")

'Imposto la stringa SQL di selezione dati
sSql = "SELECT DISTINCTrow * FROM borse "

'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
<CENTER>
<TABLE BORDER="1" CELLSPACING="2" CELLPADDING="2" ALIGN="CENTER">
<TR>
<TD><B>ID</B></TD>
<TD><B>Cognome</B></TD>
<TD><B>Nome</B></TD>
<TD><B>Commento</B></TD>
</TR>



<TR>
<TD>

<form name="form1" method="post" action="">


<select name="borse">


<option value="<%=rs("id")%>">scegli</option>
<%
ssql = "Select * FROM borse"
Set RS = Conn.Execute(sSQL)
Do While Not RS.EOF
Response.write"<option "

Response.Write "value= "&RS("ID")& ">" &RS("link_testo")& "</option>"
RS.MoveNext
Loop

%>
</select>

<input type="submit" name="Submit" value="Invia">
</form>
</TD>

</TR>


<% 'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close
Set conn = Nothing
%>
</TABLE>

</CENTER>
</BODY>
</HTML>
_______________________________________
Ma non riesco a far funzionare il secondo select che legge da un'altra tabella.