rs.EOF

[franz79]

Salve a tutti.

Ho il seguente problema: faccio una SELECT da motore di ricerca, pagino i risultati e va tutto bene.
Però ho impostato nel codice:

rs.PageSize = RecordsPerPagina 
rs.AbsolutePage = page 
If rs.Eof=True or rs.Bof=True then 
Response.Write "

Nessun risultato trovato</P>" 
Else 
For i=1 to RecordsPerPagina 
if Not rs.EOF then

in modo da farmi stampare "Nessun risultato trovato" nel caso i ncui non trovi nessun record...

Invece mi dà un messaggio di errore dicendomi che il record corrente corrisponde all'inizio o alla fine del file... per eseguire l'operazione è necessario un record corrente.

Non capisco dove sbaglio...

[99eros9]

if rs.bof and rs.eof then

[franz79]

macché, avevo già provato... niente

Il bello è che la query funziona, ma se non trova risultati mi dà errore...

Posto un po' più di codice, così magari si capisce...

<% 
RecordsPerPagina = 5 
MioArray=Request("nome")
MioArray2=Request("cognome")
MioArray3="99991231"
page = Request("page") 
if page="" then page=1 
Conn = "Trusted Connection=yes;Provider=SQLOLEDB;Data Source=82.104.xx.xxx;Initial Catalog=nomedb;User ID=utente; password=password"

Set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM tabella WHERE NOME LIKE '%" & MioArray & "%' AND COGNOME LIKE '%" & MioArray2 & "%' AND D_CESS LIKE '%" & MioArray3 & "%' "

RS.Open sql, conn, adOpenKeyset 

' paginazione 
rs.PageSize = RecordsPerPagina 
rs.AbsolutePage = page 
if rs.bof and rs.eof then
Response.Write "

Nessun risultato trovato</P>" 
Else 
For i=1 to RecordsPerPagina 
if Not rs.EOF then 
Response.Write (rs("NOME"))
...
rs.MoveNext 
end if 
Next 
End if 
%>

<% 
Response.Write "

Pagine: " 
For pag=1 to rs.PageCount %>
<a href="risultatiute.asp?nome=<%=MioArray%>&cognome=<%=MioArray2%>&page=<%= pag %>"><%
Response.Write pag 
%></a><%
Next 
Response.Write "</P>" 
%>

[Jupy64]

Ciao, prova a fare la paginazione dopo il controllo se ci sono record!

if rs.bof and rs.eof then
   .....
else
   rs.PageSize = RecordsPerPagina 
   rs.AbsolutePage = page 
   ...
   ....
end if