Como hacer que si hay n registros me muestre un link

[El_Metallick]

se me ocurrio poner = 10 pero aun asi no me funciona

Código:

If rs.recordcount = 10 Then 
Responde.Write ("<p align=""center""><a haref=""listado.asp"">Ver todas las noticias</a></p>") 
End If

no se que puede ser les dejo el codigo entero porsi le pillan la tranca

Código:

<% 
'Abre la conexion con la base de datos a traves de una conexion ODBC 
Set con = Server.CreateObject("ADODB.Connection") 
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias/noticias.mdb") 
 
'Ejecuta un sentencia SQL de consulta 
sql = "SELECT TOP 10 * FROM Noticias ORDER BY id DESC" 
Set rs = con.Execute(sql) 
'Recorre todas las filas del resultado 
Do While Not rs.EOF 
'Muestra la fila actual 
Response.Write (" <tr valign=""middle"">") 
Response.Write (" <td><img src=""images/spacer.gif"" width=""4"" height=""1""></td>") 
Response.Write (" <td width=""95%""><b><img src=""images/arrow_small.gif"" width=""7"" height=""7"">&nbsp;<a href=noticia.asp?id=" & rs.Fields("id") & ">" & rs.Fields("titulo") & "</a></b>") 
Response.Write (" <br><font color=""#696969"">" & rs.Fields("resumen") & "</font><br><br></td>") 
Response.Write (" <td><img src=""images/spacer.gif"" width=""9"" height=""1""></td>") 
Response.Write (" <td width=""99%"" class=""titletext"">&nbsp;</td>") 
Response.Write (" </tr>") 
'Pasa a la siguiente fila 
rs.MoveNext 
Loop 
If rs.recordcount = 10 Then 
Responde.Write ("<p align=""center""><a haref=""listado.asp"">Ver todas las noticias</a></p>") 
End If 
'Libera memoria 
rs.Close 
Set rs = Nothing 
con.Close 
Set con = Nothing 
%>