Ecco il mio codice
Recordcount non mi conta se i risulatai della mia quey sono >=1
<%
cat=request.QueryString("cat")
If cat="" Then
cat = "VUOTO"
End If

id = Request.QueryString("id")
If id="" Then
id = "VUOTO"
End if

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Decoarredo.mdb")
%>
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="189">
<%
if cat <> "VUOTO" then

rs.Open "SELECT * FROM Prodotti WHERE Categoria = "&cat&" ORDER BY Tipo",Conn,3,1
CONTA = rs.recordcount

if CONTA >= 1 then

while NOT rs.EOF
Response.Write("<a href=Prodotti.asp?cat="&cat&"&id="&rs("ID")&">"&rs("Tipo")&"</a><br> ")
rs.movenext
wend

rs.Close

else

Response.Write("Non ci sono prodotti per questa categoria")

end if

else
Response.Write("Non ho ricevuto categorie")
end if
%>

a me così funziona

strSql = "SELECT * FROM cliente "

set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.connection")
rs.cursorlocation=3
rs2.Open = strConnString
rs.Open strSql , rs2
numerorecord= rs.recordcount