datemi una mano ...

[blast]

sapete darmi una mano che non ci levo le gambe ??
Ho fatto due file, global.asa e check_connection.asp che mi dovrebbero leggere il contenuto da database(con access 2000),
ma mi da l'errore:

HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver Manager ODBC] Nome origine dati non trovato e driver predefinito non specificato.
/esempi/11m2/check_connection.asp, line 42


i programmi sono: global.asa

<%
Sub Application_OnStart
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:/inetpub/wwwroot/esempi/11m2/crm.mdb"
Set Application("dbconn") = strConn
End Sub
%>


e check_connection.asp

<%


Option Explicit
Dim objConn, objRs
%>

<%
call Main()

Sub Main()
Dim strConn, strsql
strConn = Application("dbconn")
strsql ="SELECT * from tbl_feedback"

call Prendi_RecordSet(objconn, objrs, strConn, strsql)
call Guarda_Recordset(objRs)

'pulisci e chiudi
objRs.Close
Set objRs = Nothing

End sub

Sub Guarda_Recordset(objRs)
dim i
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='midnightblue' width='40%' align='left'>"
objRs.Movenext
Loop

End sub

Function Prendi_Recordset(objConn, objRs, strConn, strsql)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open Application("dbconn") <<---- linea dell'errore

'objConn.open strConn
Set objRs = objConn.Execute (strsql)
End Function
%>

[Mems]

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/esempi/11m2/crm.mdb")

[blast]

non funziona nemmeno così, che può essere ??