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"> </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