<%

dim StrSLQ, strConn


' Definisci la connessione
Set objConn = Server.CreateObject("ADODB.Connection")

' Definisci stringa di connessione
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../database/prodotti.mdb")

' Apri la connessione
objConn.Open strConn

'Selezione SQL
StrSQL = "SELECT categoria FROM Italiano"

' objConn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")


%>

<form>
<select>
<%
do
%>
<option> <% Response.Write(rs.Fields.Item("categoria").Value) %> </option>
<%
rs.MoveNext()
Loop while (NOT (rs.EOF))
%>
</select>
</form>

<%

' Chiudi la connessione
objConn.Close

' Distruggi l'oggetto
Set objConn = Nothing

%>