<%
set conntemp=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("db\prova.mdb")
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
set RsVerPwd=conntemp.execute("select cognome from elenco")
'Sql = "SELECT * FROM elenco"
'RsVerPwd.Open Sql
response.write("provaaaaaaaaa")
response.write("
")
if not RsVerPwd.EOF then
do while not RsVerPwd.EOF
cognome = RsVerPwd("cognome")
response.write(cognome)
response.write("
")
RsVerPwd.MoveNext
loop
end if
conntemp.close
set conntemp=nothing
%>