errore lettura db

[netbos]

Ciao a tutti
sto provando a realizzare un movie che richiama le news dal database.
il codice è questo:


<%
Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/tbnews.mdb")

sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"

cn.Open


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

_____________________________________________



mi da un errore error '80020009' alla linea 24

Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link"))

qualcuno puo aiutarmi???
grazie

[Ohmnibus]

Prova con

sql = "SELECT Titolo, Link FROM tbNews ORDER BY tbNews.IDNews DESC"

[zetaweb]

Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link"))

Vedi se con questa stringa invece della tua che vedi sopra fuunziona:

response.write "titolo" & x & "=" & rs("Titolo")& "link" & x & "=" & rs("Link")

Facci sapere

[netbos]

risolto
grazie mille


Se volessi contare i record prima di avviare il loop in modo da sapere quanti record elencare come posso procedere??

-Ho letto dell'oggetto cout, ma come faccio a far girare 2 funzioni nella stessa pagina????

[zetaweb]

non ho capito la tua domanda...
per contare devi usare

totale = rs.recordcount

però devi anche impostare il cursortype a LockOpmtimistic

[netbos]

il codice dopo aver richiamato il db mi restituisce le news e me le elenca con un loop eseguito per 5 volte (x=5).

se io non sapessi quanti record sono presenti e di conseguenza quanti visualizzarne come posso automatizzare questa procedura??

Domanda

come posso contare i record e successivamente passare la variabile al loop che di conseguenza verra eseguito x volte.(in base hai record presenti nel db)????????????

[zetaweb]

proprio come ti ho detto prima:

facendo
totale = rs.recorcount
calcoli in automatico il numero di record, quindi dopo farai il ciclo in questo modo

For valore_ciclo = 1 to totale
response.write valore_ciclo
next

inquesto modo ti stampi a video un risultato del genere
1234567...fino al valore totale

Capito?

[netbos]

<%
Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/tbnews.mdb")

sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"

cn.Open


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

x = 0
y = rs.recorcount

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

rs.Close
Set rs=Nothing
%>

[netbos]

non funziona!!!!!

Ricapitoliamo:


ho scaricato gestione news dall'articolo

freeasp.html.it/articoli/gestione news

devo usare questo file con un'altro che esegue l'upload delle news.

Ora il problema è che gestione news restituisce le news con un loop che esegue per 5 volte in base ad una variabile.
io non voglio far alro che chiedere al database quanti record sono presenti e passare la variabile al loop che restituira x news in base a quante ne contiene il database.

[netbos]

ci sono riuscito!!!!!!!!!!



<%
Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/news.mdb")
sql = "SELECT * FROM dati ORDER BY dati.codice DESC"
cn.Open

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

record_totali = rs.recordCount

x = 0

Do until(x=record_totali)
x = x + 1
Response.Write("titolo" & x & "=" & rs("Titolo") & "&testo" & x & "=" & rs("testo"))
rs.MoveNext
If x<record_totali then Response.Write("&")
Loop

rs.Close
Set rs=Nothing
%>

grazie mille