Tengo esto:
Código:
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias.mdb"))
sql = "SELECT * FROM foros WHERE id=" & Request.QueryString("id") & " ORDER by auto DESC"
Set result = con.Execute(sql)
If Recordset.EOF and Recordset.BOF Then
Reponse.Write("No hay comentarios")
Else
Do While Not result.EOF
Response.Write("<b><font color='green'>" & vbCrLf)
Response.Write(result("nombre") & "</b></font>" & vbCrLf)
Response.Write(":&nbsp;" & result("mensaje") & " <font color='#c8c8c8' size=1 face=tahoma>(" & result("fecha") & ")" & vbCrLf)
Response.Write("</font><br>" & vbCrLf)
result.MoveNext
Loop
End If
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
Y este error:
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: ''
/noticias/noticia.asp, line 32
La línea está en itálica.
<center><hr size="1" color="blue" width="39%">
<a href="http://www.ommadawn.es.vg" target="_blank"><font color="red">www.Ommadawn.es.vg[/CODE]</a><hr size="1" color="blue" width="39%">