Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/02/2006, 12:48
jobarme
 
Fecha de Ingreso: febrero-2006
Mensajes: 18
Antigüedad: 19 años, 1 mes
Puntos: 0
Proble con las fechas gestionando noticias

Buenas tardes,

Tengo un problema cuando subo una noticia a una base de datos el último día de cada mes.

Para conectar con la base de datos y que muestre la conexión utilizo el siguiente código:
<%

'Definimos y abrimos la conexión
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& server.mappath("../data/datos.mdb"))
'************* SELECCIONO TODOS LOS TIPOS DE NOTICIAS QUE HAY *******************************************
Set rsTipo = Server.CreateObject("ADODB.Recordset")
sqlTipo="SELECT Tipos.* FROM Tipos ORDER BY idTipo"
rsTipo.Open sqlTipo, conn, 2, 3

'****************** SACAMOS 6 NOTICIAS DE CADA TIPO ********************************
DO WHILE NOT rsTipo.EOF
contador=contador+1
If contador=6 Then
Exit Do
End If

'Saco numero de articulos Actuales
Set rs = Server.CreateObject("ADODB.Recordset")
'FechaC=day(date)&"/"&Month(Date)&"/"&Year(date)
'sql = "SELECT * FROM Noticias WHERE idTipo="&rsTipo("idTipo")&" AND (Fecha < #"&FechaC&"# OR (Fecha = #"&FechaC&"#)) ORDER BY Fecha DESC"
FechaC=Month(Date)&"/"&((day(date))+1)&"/"&Year(date)
sql = "SELECT * FROM Noticias WHERE idTipo="&rsTipo("idTipo")&" AND (Fecha < #"&FechaC&"#) ORDER BY Fecha DESC"
rs.Open sql, conn, 1, 2
If Not rs.EOF Then

%>

Funciona siempre bien menos el último dia de cada mes. Ese día me devuelve el error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis en la fecha en la expresión de consulta 'idTipo=1 AND (Fecha < #2/29/2006#)'.

Podeis ayudarme?

Muchas gracias