Connessione db

[frappy66]

Ho trovato uno script che vorrei testare, ma non riesco a fargli vedere il db...

Ho una cartella prova su c: che contiene una cartella db e dentro il db che si chiama download.mdb

Il file .inc contiente queste indicazioni:


<%
'Enter the details of your server below
src = Server.MapPath("db/download.mdb")

Set adoCon = Server.CreateObject("ADODB.Connection")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src
adoCon.Open sConnStr
%>

Io non ho fatto altro che prendere la seconda riga del file .inc cioè src = Server.MapPath("db/download.mdb") e aggiungerla a Data Source il mio .inc diventa così:

<%
Set adoCon = Server.CreateObject("ADODB.Connection")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src = Server.MapPath("db/download.mdb")
adoCon.Open sConnStr
%>

Dove sbaglio???? Mi potete dare una mano??? Grazie
Il pc mi restituisce questo errore:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver Manager ODBC] Nome origine dati non trovato e driver predefinito non specificato.
/prova4/dbconnection.inc, line 4

[Roby_72]

Il tuo localhost non punta su C: credo ma su C:/Inetpub/wwwroot quindi prendi la tua cartella con il db e mettila lì dentro.
Poi:

src = Server.MapPath("/db/download.mdb")

Roby

[frappy66]

Penso che localhost punti su c: perche l'indirizzo che scrivo sul browser è questo:
http://localhost/prova/default.asp

[Roby_72]

E la cartella /prova dove si trova?

Roby

[frappy66]

su c:
e poi lo condivisa per emulazione server

[Roby_72]

Mah, allora lascia tutto com'è e cambia solo questa:

src = Server.MapPath("/db/download.mdb")

Roby

[frappy66]

L'errore è sempre questo:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver Manager ODBC] Nome origine dati non trovato e driver predefinito non specificato.
/prova4/dbconnection.inc, line 4

il file .inc l'ho scritto così:
<%
Set adoCon = Server.CreateObject("ADODB.Connection")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src = Server.MapPath("/db/download.mdb")
adoCon.Open sConnStr
%>

[Roby_72]

Metti questo e dimmi cosa restituisce:

response.Write request.ServerVariables("PATH_TRANSLATED")

Roby

[michele.santoro]

Originariamente inviato da frappy66
L'errore è sempre questo:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver Manager ODBC] Nome origine dati non trovato e driver predefinito non specificato.
/prova4/dbconnection.inc, line 4

il file .inc l'ho scritto così:
<%
Set adoCon = Server.CreateObject("ADODB.Connection")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src = Server.MapPath("/db/download.mdb")
adoCon.Open sConnStr
%>

Scusate se mi intrometto, ma hai provato così?

sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db/download.mdb")

Io aggiungerei anche un

Dim adoCon, sConnStr

prima della connessione

[frappy66]

<%
Dim adoCon, sConnStr
Set adoCon = Server.CreateObject("ADODB.Connection")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db/download.mdb")
%>

Ho scritto come mi hai detto tu e adesso riesco ad entrare:
ma quando digito la password mi viene fuori questo tipo di errore:
ADODB.Recordset (0x800A0E7D)
Connessione chiusa o non valida in questo contesto. Impossibile utilizzarla per eseguire l'operazione.
/prova/default.asp, line 14

Ecco parte del codice di default.asp

<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=TRUE%>



<%
If Request.querystring("mode") = "login" then
Dim rsCheckUser
Dim strSQL
Dim strUserName
strUserName = Replace(Request.Form("txtUserName"), "'", "''")
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT password, username FROM tblusers WHERE username ='" & strUserName & "'"
rsCheckUser.Open strSQL, adoCon If NOT rsCheckUser.EOF Then
If md5(Request.Form("txtUserPass")) = rsCheckUser("password") Then
Session("userName") = rsCheckUser("username")
Session("userAdmin") = 1
End If
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
Response.Redirect"downloadadmin.asp?mode=listdownl oad"
End If
rsCheckUser.Close