<%dim con,rs,sql_sel
set con=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/ArchivioFattoria.mdb")
sql_sel="select distinct genere from tab_foto order by genere asc"
rs.open sql_sel,con
%>
<%
rs.close
set rs=nothing
con.close
set con=nothing
%>
|