<%
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.