Fecha y hora

[eduvivi]

call FechadeHoy (f)
idforo=CInt(Request.Form("IdForo"))
idcabecera=CInt(Request.Form("IdCabecera&quot ;))
idpadre=CInt(Request.Form("IdPadre"))
autor=CStr(Request.Form("Autor"))
ProcesarNombre autor
email=CStr(Request.Form("Email"))
ProcesarEmail email
tema=RTrim(LTrim(CStr(Request.Form("Tema&quot ;))))
if Len(tema)=0 then
ok=False
end if
if Len(tema)>100 then
tema=Left(tema, 100)
end if

cuerpo=Request.Form("Cuerpo")
ProcesarCuerpo cuerpo


if ok then
'añado mensaje a bd

Conectar

SQL="SELECT * FROM Mensajes WHERE FechaHora=#"&f&"#;"

Registro rs
rs.Open SQL, oConn, 2, 2

rs.AddNew

rs.Fields("IdForo")=idforo
rs.Fields("IdCabecera")=idcabecera
rs.Fields("IdPadre")=idpadre
rs.Fields("Autor")=autor
rs.Fields("Email")=email
rs.Fields("FechaHora")=f
rs.Fields("Tema")=tema
rs.Fields("Cuerpo")=cuerpo

rs.Update

' Refresco el recordset
rs.Requery


'Por si acaso
rs.MoveFirst

idcabecera=rs.Fields("IdCabecera")
idmensaje=rs.Fields("IdMensaje")
if idcabecera=0 then
' Abre una nueva discusión
rs.Fields("IdCabecera")=idmensaje
end if
rs.Update

LimpiarRS rs


'Modifico el foro

Totalforo idforo, f
LimpiarConexion

Response.Write("<H1>¡Gracias por contribuir al foro!</H1>")
Response.Write("<A HREF=""foros.asp?f="&idforo&amp ;""">Volver al foro</A>")
Response.Write(" | ")
Response.Write("<A HREF=""mostrarmsg.asp?id="&idme nsaje&""">Ver mensaje</A>")


else

Response.Write("Error al procesar el mensaje</BR>")

end if

%>

La linea 131 que marca el error es (rs.Open SQL, oConn, 2, 2)
Gracias