- Home
- Categorie
- Coding e Sistemistica
- Altri linguaggi per il web
- Codice per db
-
Codice per db
Ciao ragazzi,
ho il codice asp che non gira:<!-- #include file="adovbs.inc" -->
<%
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 = cnrs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Source = "tbNews"
rs.Open sql, cnx = 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("&")
Looprs.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
-
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
-
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.
-
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)