<Html><title>4</title>
<Body>
<%
Dim Objconn
Set objconn = Server.CreateObject ("ADODB.Connection")
Objconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & Server.Mappath ("/mdb-database/databaseP.mdb")

Dim ObjRs
Set ObjRs = Server.CreateObject ("ADODB.Recordset")
ObjRs.CursorLocation = adUseClient
ObjRs.Open "prova", Objconn, adOpenStatic, , adCmdTable

ObjRs.Sort ="ID DESC"
%>



<%
Do While Not Objrs.Eof
Response.Write "<table width=""500"" cellpadding=""2"" cellspacing=""2"">"
Response.Write "<tr><td width=""350"" bgcolor=""#dddddd"">" & Objrs("nome")& "</td></tr>"
Response.Write "<tr><td width=""350"" bgcolor=""#eeeeee"">" & Objrs("cognome")& "</td></tr>"
Response.Write "</table>"
Response.Write "
"
Objrs.Movenext
Loop

ObjRs.close
Set ObjRS = Nothing
Objconn.Close
Set Objconn = Nothing

%>

</Body>
</html>