<select name="nome_select">
<option value=""selected>Seleziona qualcosa...</option>
<%
CNN=Application("CNN")
'imposta la connessione al database
Set objConn=Server.CreateObject("ADODB.Connection")
'apre la connessione al database
objConn.Open CNN
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM nome_tabella ORDER BY nome_campo ASC"
rs.open sql, objconn
'se la query restituisce qualcosa..
if not rs.eof then
'ciclo fin quando la query estrae dati dal db
do until rs.eof
%>
<option value="<%= rs("campo1_estratto_dal_db")%> - <%=rs.fields("campo2_estratto_dal_db")%>">
<%= rs("campo1_estratto_dal_db")%> - <%=rs2("campo2_estratto_dal_db")%>
</option>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</select>
Nessun commento:
Posta un commento