ciao

ho inserito i seguenti blocchi di codice:

1) per aprire la connessione
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("news/data/news.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select TOP 5 from news order by id DESC", conn
FOR i=1 to 5
response.write (recordset("campo"))
i = i + 1
NEXT

Dim id1
id1=rs("id")
%>


2) per visualizzare le news
<%
response.write RS("titolo")
RS.movenext
Loop
%>

3)per chiudere la connessione
<%
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>

il risultato purtroppo non è cambiato .... mi vengono restituite tutte le news che inserisco nel database.
potresti indicarmi dove sbaglio?

grazie