<%
DBCONNSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("\db\pickwick.mdb")

sql = "SELECT * FROM scritti"
Set connessione = Server.CreateObject("ADODB.CONNECTION")
connessione.Open DBCONNSTRING
Set rs = Server.CreateObject("ADODB.RECORDSET")
rs.Open sql, connessione, 3, 1

If rs.Eof=True or rs.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else


titolo = rs("titolo")


%>

<%=titolo%>

<%


End if

rs.Close
Set rs = Nothing
connessione.Close
Set connessione = Nothing

%>

Questo è il codice che ho uploadato per testare connessione al db, per tutta
risposta il server mi dà:

L'errore (HTTP 500 - Errore interno del server) indica che nel sito Web visitato si è verificato un problema relativo al server che ha impedito la visualizzazione della pagina Web.