<%
'richiamo il nome dalla pagina precedente
strNome=request.form("nome")
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mdb-database/database.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM lista WHERE nome='" & strNome & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
response.write rs("nome")
response.write "
"
response.write rs("cognome")
response.write "
"
response.write rs("eta")
response.write "
"
response.write rs("indirizzo")
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>