Codice per db

guido

Codice per db

Ciao ragazzi,
ho il codice asp che non gira:

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

x = 0
Do until(x=5)
x = x + 1
Response.Write("titolo"&x&"="&rs("Titolo")&"&link"&x&"="&rs("Link"))
rs.MoveNext
If x<5 then Response.Write("&")
Loop

rs.Close
Set rs=Nothing
%>

Nella stessa cartella ho messo un db access con nome news e il file adovbs.inc.
Dove sta l'errore che non riesco a trovare?

ps: il file preleva le info dal db e crea delle stringhe che servono successivamente per un sito in flash.

Grazie

legolas

Se ci dici con più precisione che errore ed in che riga del codice possiamo darti una mano

Comunque ti consiglio di aggiungere questo al codice:

 Do until (x=5 Or Rs.Eof)

Ciao

vins78

E' stato creato il DSN a cui fa riferimento il codice?

La tua affermazione lascia intendere che tu non abbia creato il DSN e credo possa essere questo il problema.

My 2 cents.

paocavo

E già se non hai creato il DSN chiamto News allora dovrai sostituire la riga


cn.Open "DSN=news;"

con la seguente:


cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/myDB.mdb")

Ovviamente scriverai il nome corretto del tuo Database (al posto di myDB.mdb)