Hola! Tengo este script:
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath("DB/INDEX.mdb")
%>
<%
ssql = " Select * from BLOG where ID1 = " & Request.QueryString("ID1") & " order by FH desc"
Set RS=Conn.Execute(ssql)
ssql = " Select * from login "
Set RS3=Conn.Execute(ssql)
%>
ta ta ta ta
y para paginar lo siguiente:
<% While ((Repeat1__numRows <> 0) AND (NOT RS.EOF))%>
<tr>
<td width="12%" height="54">
<img border="0" src="images/<%=RS("ICON")%>.jpg" width="53" height="52" ALT onerror="src='images/icon.gif';"width="0" height="0" align="left"></td>
<td width="88%" height="54" valign="top" bgcolor="#C7DAF8"><font size="2"><%=RS("frase")%></font></td>
</tr>
<tr>
<td colspan="2"><font size="2"><br><%=RS("msn")%></font></td>
</tr>
<tr>
<td colspan="2"><!--#include virtual="img.asp" --></td>
</tr>
<tr>
<td colspan="2"><b><font size="1" color="#FFFFFF"><%=rs("titft1")%></font></b></td>
</tr>
<tr>
<td colspan="2"><!--#include virtual="vd.asp" --></td>
</tr>
<tr>
<td colspan="2"><%=rs("fh")%></td>
</tr>
<tr>
<td colspan="2"><hr color="#FF9900" size="1" width="400"> </td>
</tr>
<%Repeat1__index = Repeat1__index + 1
Repeat1__numRows = Repeat1__numRows - 1
RS.MoveNext
Wend%>
Cuando la cantidad de registro es igual a "0" me da un error 500 porque no sé qué agregarle para que me diga que no hay registros.
Muchas gracias.