Salve, non riesco a far visualizzare il contenuto di un semplice DB.
Con Win 2000 funzionava tutto alla perfezione.
L'errore è:

Connessione aperta con il database: C:\inetpub\wwwroot\Magazzino.mdb
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\Magazzino.mdb;Persist Security Info=False

Microsoft JET Database Engine error '80004005'

Errore non specificato.

/primodb.asp, line 23

dove line 23 è:

cn.Open strcn

strcn è:

strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBase & ";Persist Security Info=False"

Il codice completo è


<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<HEAD>
<TITLE>Interrogazione di un Data Base</TITLE>
</HEAD>

<BODY>
<%
Dim cn, rs, strcn, strSQL, DataBase

Set cn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

DataBase = Server.mapPath ("Magazzino.mdb")
Response.Write "Connessione aperta con il database: " & DataBase & "
"
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBase & ";Persist Security Info=False"
strSQL = "SELECT codice, descr, prezzo FROM articoli ORDER BY codice"
Response.Write strcn & "
"

cn.Open strcn
rs.Open strSQL, cn

If Not rs.EOF Then
Do While Not rs.EOF
Response.Write(rs.Fields("Codice").Value & " - " & rs.Fields("Descr").Value & " - " & rs.Fields("Prezzo").Value& "
")
rs.MoveNext
Loop
Else
Response.Write("Nessun record trovato ...")
End If

rs.Close
cn.Close
%>
</BODY>
</HTML>