<% 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 %>