codice:
<%
Set conn = server.createObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("/mdb-database/mpdb.mdb")
Set rs = server.createObject("ADODB.Recordset")
sql = "SELECT nome, Cock_ID FROM cocktail ORDER BY nome"
call apridb(sql, rs, conn)
if not rs.eof then
%>
<select name="c1" value="c1" id="c1">
<option value="<%=rs("cock_ID")%>" selected></option>
<% do until rs.eof %>
<option value="<%=rs("nome")%>"><%=rs("nome")%></option>
<%
rs.movenext
loop
end if
call chiudidb(rs, conn)
%>
</select>
Le dua 'call' aprono e chiudono la connessione con il database, puoi usare il metodo che preferisci