codice:
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mapPath("\cartella\database.mdb")

sql = "SELECT campo_id, campo_titolo FROM nome_tabella"

set rs = conn.execute(sql)

if not rs.eof then
%>
<select name="nome_campo">
<option value="0">SELEZIONA</option>
<%
do until rs.eof
%>
<option value="<%=rs("campo_id")%>"><%=rs("campo_titolo")%></option>
<%
rs.moveNext
loop
%>
</select>
<%
end if

rs.close
set rs = nothing

conn.close
set conn = nothing
%>