Perdonar que insista pero de tanto darle vueltas ya no se ni lo que hago, o es probable que no me explique bien.
Actualmente lo tengo hecho de forma que me muestra el titular, la imagen y un encabezamiento, de la última noticia, de 250 palabras. También muestra los titulares de las 6 noticias anteriores
<%
'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))&"/"&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
%>
Y la llamada la hago así:
Así obtengo última noticia
<% If rs("Imagen")<>"" Then %><img class="noticias" src="noticias/<%=rs("Imagen")%>" width="108" height="118" alt="" /><% End If %><strong><%=rs("Titulo")%></strong>
<br /><br /><%=FormatStr(Left(rs("Texto"),250))%>... &nb sp;<br /><a href="noticias_ver.asp?idNoticia=<%=rs("idNoticia" )%>">Ver Noticia Completa..</a></p>
<%
Así obtengo los 6 titulares anteriores
<%
rs.MoveNExt
noticia=1
do while not rs.EOF and noticia < 7
%>
<li><a href="noticias_ver.asp?idNoticia=<%=rs("idNoticia" )%>"><%=rs("Titulo")%></a></li>
<%
rs.MoveNext
noticia=noticia+1
loop
%>
</ul>
<%
End If
rsTipo.MoveNext
Loop
%>
<%
rs.Close
conn.Close
%>
Todo funciona bien menos cuando introduzco una noticia el último día del mes. ese día obtengo 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#)'.
Exactamente donde tengo que implementar la función que muestra el último día??