codice:
<%
Dim conn,objConn,objSQL,objRs
'il tuo db OVVIAMENTE sara dentro la wwwroot in una cartella con permessi di scrittura e lettura
conn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/nome.mdb") & ";"
set objConn= server.CreateObject("adodb.connection")
objConn.open conn
Set objRs = Server.CreateObject("ADODB.Recordset")
objSQL = "SELECT * from tbl_feedback"
objRs.Open objSQL, objConn, 0,3
Do while NOT objRs.EOF
response.write "nome = " & objRs("nome") & "
"
response.write "email = " & objRs("email") & "
"
response.write "commenti = " & objRs("commenti") & "
"
response.write "<hr size='1' color='midnightbluè width='40%' align='left'>"
objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>