<% strConn = "DSN=jcc_guestbook" 'strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.Mappath("guestbook.mdb") strSQL = "SELECT Nick, Commento FROM Guest ORDER BY IDCommento DESC" Set objConn = Server.CreateObject("ADODB.COnnection") objConn.ConnectionString = strConn objConn.Open Set objRec = objConn.Execute(strSQL) While not objRec.eof strNick = objRec("Nick") strCommento = objRec("Commento") response.Write "" & strCommento & "
" & VbCrLf response.write "(" & strNick & ")

............................................................................................................

" objRec.MoveNext wend set objRec = nothing objConn.Close set objConn = nothing %>