Otro problemilla con un codigo

[flipudez]

Bueno, solucionado mi problema anteior ataco con otro. Vereis tengo un codigo que me saca un archivo de noticias ordenadas por fecha de la mas reciente a la mas antigua. El caso es que (que raro, nuevamente, en mi ordendor me funciona y en el servidor no).el codigo es este:

Código:

<%
' Paginas en un recordset


Dim oConn, rs, SQL
Dim PaginaActual		' en qué pagina estamos
Dim PaginasTotales		' cuántas páginas tenemos
Dim TamPagina			' cuantos registros por pagina
Dim CuantosRegistros	' para imprimir solo el nº de registro por pagina que queramos

'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=10

'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
	PaginaActual=1
else
	PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

' Conexión por OLEDB
oConn.Open "caja"
SQL="Select distinct(fecha) from noticias order by fecha desc"

' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

' Abro el recordset
rs.Open SQL, oConn, 1, 2

'Cuento las páginas
PaginasTotales=rs.PageCount

'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then 
	PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
	PaginaActual = PaginasTotales
end if

'Por si la consulta no devuelve registros!
if PaginasTotales=0 then

	Response.Write("No se encontraron resultados.")

else

	'Vamos a paginar
	rs.AbsolutePage=PaginaActual
	Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
	Response.write "<br><br>"
	CuantosRegistros=0
	do while not rs.EOF and CuantosRegistros < TamPagina
		response.write "<table class='newshead' width='92%' border='0'><tr bgcolor='#d0ccd0'><td align='right'><strong><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>"&rs("fecha")&"</font></strong></td></tr>"
		SQL2="select id_noticia,titular from noticias where fecha like '"&rs("fecha")&"' order by id_noticia desc"
		set rs2=oConn.execute(SQL2)
		do while not rs2.eof
		response.write "<tr><td><a href='noticia.asp?id="&rs2("id_noticia")&"' class='b'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&rs2("titular")&"</font></a></td></tr>"
		rs2.movenext
		loop
		CuantosRegistros=CuantosRegistros+1
		rs.MoveNext
		Response.Write("</TABLE>")
	loop
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
	Response.Write("<A HREF=arch_noticias.asp?pagina="& PaginaActual-1& ">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
	Response.Write("<A HREF=arch_noticias.asp?pagina=" & PaginaActual+1 &">10 Siguientes</A>")
end if


%>

Bien, pues el caso es que me salen las fechas bien, pero no me sale ninguna noticia(repito que en mi ordenador funciona todo perfectamente)

A ver que pudiera ser, porque si saca las fechas correctas, la conexion es que la hace bien.

[flipudez]

up

[buliwyf]

me parece que el problema es el formatoi de fechas de cada servidor... asi que asumiendo que es sql server:

<%...
sql2="Set dateformat DMY; select id_noticia,titular from noticias where fecha like '"&rs("fecha")&"' order by id_noticia desc"
...%>

prueba y me cuentas...

saludos

[flipudez]

po es access. Error no me da, simplemente saca cada fecha bien y debajo nada, simplemente pasa a la siguiente fecha.

mirare de probar eso, ya contare

[flipudez]

bueno, pues evidentemente es un problema de fechas, ha sido quitar de la pagina el LCID=1034 y funciona perfectamente, pero claro, las fechas me las pone en modo americano. Entonces ahora el tema es decirle que me saque las fechas en modo dd/mm/aa, como?