Collegamento ad un db access

[umount]

Ciao ragazzi, continuano i miei esperimenti da principiante in asp...
sto seguendo un vostro tutorial ed ora sto cercando di collegarmi ad un db access e ovvimente ho dei problemi...questo è il codice di connessione:


<%
Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"
cn.Open "DSN=news;"

Set rs.ActiveConnection = cn
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Source = "tbNews"
rs.Open sql, cn

il db si chiama tbnews.mdb
ho sostituito l' include file con virtual perchè ho un server 2003
ricevo sempre un errore HTTP 5000
Dove sbaglio???

[Roby_72]

Stai cercando di usare un DNS ma quasi sicuramente non ti serve.
Mi dici la gerarchia delle cartelle a partire dalla root per giungere a quella che contiene il db?

Roby

[umount]

ecco
/public/tbnews.mdb

grazie

[Roby_72]

Set connNews = Server.CreateObject("ADODB.Connection")
connNews.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/public/tbnews.mdb")

Il db in public è generalmente scaricabile. Mettilo in una cartella che non consente il download.

Roby

[umount]

Ok. grazie ora provo subito il codice. è un problema se ti contatto in icq. se non vuoi non imporata. tranquillo

[umount]

ecco il mio codice ora:

Response.Expires = 0
Dim rs, connNews
Set rs = Server.CreateObject("ADODB.Recordset")
Set connNews = Server.CreateObject("ADODB.Connection")
connNews.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/public/tbnews.mdb")
sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"

Set rs.ActiveConnection = cn
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Source = "tbNews"
rs.Open sql, cn

manca qualcosa???
non capisco :master:

[Roby_72]

Response.Expires = 0 
Dim rs, conn, sql 

'Apertura connessione
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/public/tbnews.mdb") 

'Apertura recordset
Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC" 
rs.Open, sql, conn
if not rs.EOF then
do while not rs.eof
response.write (rs("idnews"))&"
"
rs.MoveNext
loop
End if

'Chiusura recordset
rs.Close
set rs=nothing

'Chiusura connessione
conn.Close
set conn=nothing

Roby

[umount]

Ciao grazie ancora per la tua pazienza...ma non va ancora.
allora stanco di aruba ho provato a metterlo in locale e mi da questo errore:

Necessario oggetto: '[string: "SELECT * FROM tbnews"]'
/prova/news2.asp, line 12


cosa può essere??
mi spiace stressarti la vita...

[Roby_72]

rs.Open sql, conn

Roby

[umount]

Grazie mille! ora ho capito qualcosa in più.. puoi spiegarmi una cosa...

per la variabile sql non ha prima il "Set"??