%DSN_BASE = "DBQ=" & Server.Mappath("fpmusix.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
Sélection par style
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set Rs = Server.CreateObject("ADODB.Recordset")%>
<%Rs.Open "SELECT style FROM style" , Conn%>
<%Rs.MoveFirst%>
<%Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing%>