Sentencia para que le sea igual si no hay ningun registro

[TCL_ZIP]

Necesito modificar este codigo, para que cuando no haya ningún registro, no me muestre ningún error.

mi codigo es el siguiente:

Código:

Dim Comentaris
Dim Comentaris_numRows

Set Comentaris = Server.CreateObject("ADODB.Recordset")
Comentaris.ActiveConnection = MM_Esporlesbc_STRING
Comentaris.Source = "SELECT *  FROM Comentaris_nov  WHERE id_coment=" & Trim(Request.QueryString("noticia")) & ""
Comentaris.CursorType = 0
Comentaris.CursorLocation = 2
Comentaris.LockType = 1
Comentaris.Open()

Comentaris_numRows = 0

Código:

<%
			If Comentaris.RecordCount <> 0 Then
			%>
			<table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
              <tr>
                <td bgcolor="#FF9900"><div align="center">
                  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><% Response.Write(Comentaris.Fields("Nick")) %></td>
                      <td><div align="right">
                            <% Response.Write(Comentaris.Fields("Data")) %>
                      </div></td>
                    </tr>
                    <tr>
                      <td colspan="2"><div align="center">
                            <% Response.Write(Comentaris.Fields("Comentari")) %>
                      </div></td>
                    </tr>
                  </table>
                  </div></td>
              </tr>
            </table><% Else %>
		      <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
                <tr>
                  <td bgcolor="#FF9900">&nbsp;</td>
                </tr>
              </table><% End if%>

i el error que me da es:
ADODB.Field error '80020009'

El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

/seccions/nov_coment.asp, línea 0

[mariano_donati]

If comentaris.EOF or comentaris.BOF then
Response.Write("No hay registros")
else
' Haces algo con el RecordSet
end if

Saludos.

[TCL_ZIP]

cual es el efecto de este codigo?

If comentaris.EOF or comentaris.BOF then

[mariano_donati]

EOF y BOF son dos propiedades del objeto RS que devuelven un valor boleano indicando si se ha llegado al final de los registros o si se esta al principio de los registros que arroja el RS, respectivamente. El efecto de este código es comprobar el estado de esas dos propiedades, si alguna de las dos arroja "True", entonces quiere decir que no existen registros en el RS que creaste.
Te funcionó con esa linea? o te sigue dando error?
Espero que te haya ayudado en algo.
Saludos TCL_ZIP.

[TCL_ZIP]

Nop sigue sin funcionar, lo que he echo ha sido cambiar la linea que ponia:
If Comentaris.RecordCount <> 0 Then
Por:
If Comentaris.EOF or Comentaris.BOF then

.... i sigue dandome el mismo error

[mariano_donati]

Hiciste asi?

if Comentaris.EOF or Comentaris.BOF then
'Aca realizas la accion cuando no hay registros

else

'como hay registros, aca comienzas a mostrarlos

End if

O nomás cambiaste una linea por otra sin agragarle nada?