Ciao a tutti
come mai dalla Database mi estrapola solo 1 record?
nel database ci sono 5 record

AD_ID=1
&AD_ID=148&DATA=10/07/2007&TITOLO=prova&DESCRIZIONE=prova prova prova


ecco il codice della pagina asp
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connectio
n")

' connessione a database Access
objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/prova.mdb")

dim Param
Param = request.queryString("Param")

dim muovi
muovi = request.queryString("muovi")

objConn.open

Dim objRS, strSQL

set objRS = Server.CreateObject("ADODB.Recordset")

Dim operazione
Dim stringa

if Param <> "" then
if muovi="successivo" then
stringa = " where AD_ID > " + Param + " order by AD_ID ASC"
else
stringa = " where AD_ID < " + Param + " order by AD_ID DESC"
end if
else
stringa = " order by AD_ID DESC "
end if

strSQL = "select * from ANNUNCIAGENZIE where POSTER='asa' " + stringa + ";"

objRS.open strSQL, objConn, 3, 3

Dim Totale
Totale = objRS.RecordCount

dim AD_ID
AD_ID = objRS("AD_ID")

dim DATA
DATA = objRS("DATA")

dim TITOLO
TITOLO = objRS("TITOLO")

dim DESCRIZIONE
DESCRIZIONE = objRS("DESCRIZIONE")


Response.Write ("AD_ID=" & AD_ID & "
")

Response.write("&AD_ID=" & AD_ID & "&DATA=" & DATA & "&TITOLO=" & TITOLO & "&DESCRIZIONE=" & DESCRIZIONE )

if Totale = 1 and muovi="precedente" then
end if

Response.Write (" ")

if (Totale = 1 and muovi="successivo") or muovi="" then
end if



objRS.close
set objRS = nothing

objConn.close
set objConn = nothing

%>