Ains, hola de nuevo, sigo con lo mismo... A ver, este es el código asp de la página (en negrita la parte de eof, bof):
<%Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("david.mdb"))
sql = "SELECT * FROM david2 WHERE id=" & Request.QueryString("id") & ""
sql2 = "SELECT * FROM comentariod WHERE id_comentario=" & Request.QueryString("id") & ""
'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result1 = Con.Execute(sql)
set result2 = Con.Execute(sql2)
%>
<% if result2.EOF or result2.BOF Then
"No hay comentarios"%>
<%End If %>
<td width="568" height="442" valign="top"><p><font face="Arial" size="5" color="#000000"><%=result1("titular")%></font></p>
<p><b><font face="Arial" size="2" color="#009933"><strong><%=result1("autor")%></strong></font></b></p>
<p><font color=""#000000""size=2>•<%=result1("fecha")%>
<p><font face="Arial" size="2"><%=result1("noticia")%></font></p>
<td width="568" height="442" valign="top"><p><font face="Arial" size="5" color="#000000"><%=result2("titulo")%></font></p>
<p><b><font face="Arial" size="2" color="#009933"><strong><%=result2("nombre")%></strong></font></b></p>
<p><font color=""#000000""size=2>•<%=result2("fecha")%>
<p><font face="Arial" size="2"><%=result2("comentario")%></font></p>
Y el error que me da es:
Microsoft VBScript compilation error '800a0400'
Expected statement
/werewe/dopinion.asp, line 13
"No hay comentarios"
^
Vamos, el mismo de antes pero es que no sé dónde puede falta el cierre de un if o una coma... Luego he probado el código de Shiryu y me sale el error inicial
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/werewe/dopinion.asp, line 0
En este caso supongo que habré cambiado algo que no debía (bueno, hay un "end if" que no viene precedido de un if, igual eso tiene algo que ver)... el código cambiado:
<%if Err=0 then
'VERIFICAMOS QUE NO SEA EL FINAL DE LA TABLA
if result2.EOF=FALSE then
'EJECUTAMOS NUESTRA ACTUALIZACION
Arregloresult2=result2.GetRows
response.Write "<table border=1>"
for I = 0 to UBound(Arregloresult2,2)
'Abrimos una nueva fila
response.Write "<tr><td>" & i & "</td>"
'Desde el primero hasta el ltimo "campo"...
for J = 0 to Ubound(Arregloresult2, 1)
'Imprimo una celda para cada campo
response.Write "<td>"
if isnull(Arregloresult2(J, I)) then
response.Write " "
else
response.Write Arregloresult2(J, I)
end if
response.Write "</td>"
response.Flush()
next
Response.Write("</tr>")
next
response.Write "</table>"
else
'EN CASO DE NO ENCONTRAR EL ID
response.Write "Error. No se encontro parametro a consultar"
end if
else
'EN CASO DE ERROR DE ESTRUCTURA DE LA BUSQUEDA
response.Write "Error. No se puede realizar. "&result2SQL
end if %>
Gracias por todo.