record non trovato? perchè no fa!

[ukero]

Salve, ho un probelmino con questo script perchè non fa "Nessun risultato trovato" invece nel codice c'è scritto?

Mi proteste spiegare? grazie.

<%

dim conn, strConn

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
Server.MapPath("rubrica.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

'PAGINAZIONE

Dim page, strRicerca, SQL, RecordsPerPagina, TotalRecords

RecordsPerPagina = 10

page = Request("page")
if page="" then page=1

strRicerca = Request("ricerca")

SQL = "SELECT * FROM Rubrica WHERE Nome LIKE '%" & strRicerca & "%'"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL, conn, 1, 3

' paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page

' record attivi
TotalRecords = rs.RecordCount

If TotalRecords=0 then
Response.Write "

Nessun risultato trovato</P>"
Else

Response.Write "

" & TotalRecords & " risultati trovati</P>"

For i=1 to RecordsPerPagina

if Not rs.EOF then
Response.Write "[*]" &_
rs("nome") & _
" - " & rs("telefono")
rs.MoveNext
end if

Next

End if

%>

<hr>

<%

If TotalRecords > 0 then

Response.Write "

Pagine: "

For p=1 to rs.PageCount

If p <> CInt(Page) then
Response.Write "<A href='ricerca.asp?page=" & p
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Else
' pagina attuale
Response.Write ""
End if

Response.Write p

If p <> CInt(Page) then
Response.Write "</A> "
Else
Response.Write " "
End if

Next

Response.Write "</P>"

End if

%>

<hr>

<%

' liberiamo le risorse
Rs.Close
Set Rs = Nothing

conn.Close
set conn = Nothing


%>

[seafarer]

evidentemente non entra nell'if

If TotalRecords=0 then
Response.Write "

Nessun risultato trovato</P>"

...
che cosa restituisce la pagine?

[ukero]

Originariamente inviato da seafarer
evidentemente non entra nell'if

If TotalRecords=0 then
Response.Write "

Nessun risultato trovato</P>"

...
che cosa restituisce la pagine?

restituisce questo:

Tipo di errore:
ADODB.Recordset (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/sito/ricerca.asp, line 30

come mai? grazie.

[GudFella]

prova:

rs.Open SQL, conn, 3, 3

e controlla cosa ti restituisce come recordcount

[ukero]

Originariamente inviato da GudFella
prova:

rs.Open SQL, conn, 3, 3

e controlla cosa ti restituisce come recordcount

niente da fare lo stesso errore!!

[GudFella]

cosa ti restituisce come recordcount?

[seafarer]

al posto di

TotalRecords = rs.RecordCount

usa

if not rs.bof and no rs.eof then
TotalRecords = rs.RecordCount
else
TotalRecords =0
end if