Fecha y hora

[eduvivi]

Hola a todos estoy estudiando como hacer un foro en ASP todo va bien pero a la hora de enviar un nuevo mensaje me de este error:

Microsoft JET Database Engine error '80040e07'

Syntax error in date in query expression 'FechaHora=#26/04/2002 11:55:25 a.m.#'.

/foro/nuevomsg.asp, line 131


Gracias

[g_susdaniel]

Nos podrias colokar la sentencia SQL para ayudarte mejor ?, parece ser un problema con dicha sentencia, pero es mejor ke muestres esas lineas a ver ...

<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>Usuario # 3359 en los foros</div>

[eduvivi]

&lt;%@LANGUAGE=&quot;VBSCRIPT&quot;%&gt;
&lt;%Option Explicit%&gt;
&lt;!--#include file=&quot;comunes.asp&quot;--&gt;

&lt;%
' NUEVOMSG.ASP
' Preprocesa el mensaje y si es correcto lo envía a la base de datos

'================================================= ===================================
Sub TotalForo(idforo, fecha)
' Incrementa en 1 el total de mensajes del foro y añade la fecha del ultimo
Dim rs, SQL
Dim total


Registro rs

SQL=&quot;SELECT * FROM Foros WHERE IdForo=&quot;&amp;idforo&amp;&quot;;&quot;
rs.Open SQL, oConn,3,3
total=CInt(rs.Fields(&quot;Total&quot;))
total=total+1
rs.Fields(&quot;Total&quot;)=total
rs.Fields(&quot;Ultimo&quot;)=fecha
rs.Update

LimpiarRS rs



End Sub
'================================================= ===================================

Sub ProcesarCuerpo (str)
' preprocesa cuerpo del mensaje

if str=&quot;&quot; then
ok=False
Response.Write(&quot;&lt;b&gt;El cuerpo del mensaje no puede ser vacío&lt;/b&gt;&lt;br&gt;&quot;)
end if

End Sub
'================================================= ===================================
Sub ProcesarNombre (nombre)
' preprocesa el autor

nombre=RTrim(LTrim(nombre))
if nombre=&quot;&quot; then
ok=False
Response.Write(&quot;&lt;b&gt;El nombre no puede estar vacío&lt;/b&gt;&lt;br&gt;&quot;)

end if

End Sub
'================================================= ===================================

Sub ProcesarEmail (email)

if email&lt;&gt;&quot;&quot; then

email=Trim(email)
if InStr(1, email, &quot;@&quot;) = 0 then
email=&quot;&quot;
ok=False
end if
if InStr(1, email, &quot;.&quot;) = 0 then
email=&quot;&quot;
ok=False
end if



else

email=&quot; &quot;
end if

End Sub 'Procesar email

'================================================= ===================================
Sub FechadeHoy (f)

Dim hoy

hoy=Now()


f=hoy

End Sub 'FechadeHoy
'================================================= ===================================

Dim oConn, rs, SQL

Dim idmensaje

Dim idforo, idcabecera, idpadre, autor, email, tema, cuerpo, f

' indica si debo o no insertar en bd
Dim ok

ok=True .........Continua

[eduvivi]

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

cuerpo=Request.Form(&quot;Cuerpo&quot;)
ProcesarCuerpo cuerpo


if ok then
'añado mensaje a bd

Conectar

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

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

rs.AddNew

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

rs.Update

' Refresco el recordset
rs.Requery


'Por si acaso
rs.MoveFirst

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

LimpiarRS rs


'Modifico el foro

Totalforo idforo, f
LimpiarConexion

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


else

Response.Write(&quot;Error al procesar el mensaje&lt;/BR&gt;&quot;)

end if

%&gt;

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

[eduvivi]

Me pareceque complique las cosas enviando todo el codigo, el ERROR ese este:

Microsoft JET Database Engine error '80040e07'

Syntax error in date in query expression 'FechaHora=#27/04/2002 12:46:28 a.m.#'.

/foro/nuevomsg.asp, line 131


la sentencia SQL es esta:
SQL=&quot;SELECT * FROM Mensajes WHERE FechaHora=#&quot;&amp;f&amp;&quot;#;&quot;

Ayuda!!!
Gracias de antemano