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


%>