Noticias

<%@ Language=JScript %> <% var Conexion = Server.CreateObject("ADODB.Connection"); var Base="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+Server.MapPath(".")+"\\..\\..\\..\\data\\"+"Noticias.mdb;Jet OLEDB:System database='';" //Base="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+Server.MapPath(".")+"\\..\\..\\basedatos\\"+"Noticias.mdb;Jet OLEDB:System database='';" Conexion.ConnectionString=Base; Conexion.Open(); var FechaD1=String (Request("FechaD"))== "undefined" ? "":String (Request("FechaD")); var FechaH1=String (Request("FechaH"))== "undefined" ? "":String (Request("FechaH")); FechaD = FechaD1 FechaH = FechaH1 var Texto=String (Request("Texto"))== "undefined" ? "":String (Request("Texto")); var MSql="Select * " MSql+=" from noticias,noticiasweb,webs " MSql+=" where noticias.IdNoticia=noticiasweb.IdNoticia " MSql+=" and webs.idweb=noticiasweb.idweb " MSql+=" and webs.idweb = 1 " if(FechaD !='') { MSql+=" and Fecha >='"+FechaD+"' " } if(FechaH !='') { MSql+=" and Fecha <='"+FechaH+"' " } if(Texto !='') { MSql+=" and (Titulo like '%"+Texto+"%'" MSql+=" or Resumen1 like '%"+Texto+"%'" MSql+=" or Resumen2 like '%"+Texto+"%') " } MSql+=" order by Fecha desc,orden,Hora,Minutos,Titulo " var Noticias = Server.CreateObject("ADODB.RecordSet"); Noticias.Open(MSql,Conexion,3,1); var i=0; var Cadena ="?FechaD="+FechaD1 +"&FechaH="+FechaH1+"&Texto="+Texto var Noticias = Server.CreateObject("ADODB.Recordset"); var NumNoticias=NumeroNoticiasListadas; var donde=0; var Pagina = String (Request("Pagina"))== "undefined" ? "1":String (Request("Pagina")); var PaginaAnterior=0; var PaginaSiguiente=0; var PaginaNum= parseInt(Pagina); var Pintar=0; if (PaginaNum == 1) { PaginaAnterior=1; } else { PaginaAnterior=PaginaNum-1; } Noticias.Open(MSql, Conexion,3,1); var Cuantos=0; if (!Noticias.EOF) { Noticias.MoveLast() Cuantos = Noticias.RecordCount } Pintar = Cuantos / NumNoticias; resto = Cuantos % NumNoticias; if (resto != 0) { Pintar=Math.round(Pintar + .5); } if (PaginaNum >= Pintar) { PaginaSiguiente=PaginaNum } else { PaginaSiguiente = PaginaNum + 1; } if (Cuantos > 0) { if (Pagina == 1) { Noticias.MoveFirst() } else { donde = ((Pagina-1) * NumNoticias ); Noticias.Move(donde,1) } } %> Noticias

<% if(Cuantos==0) { %> <% } while(!Noticias.EOF && NumNoticias>i) { %> <% i++; Noticias.MoveNext() } Noticias.Close(); %> <% if(FechaD !='' && FechaH!='') { %> <% } %>

Más Noticias

No existen noticias para es búsqueda.

<%=Noticias("Titulo")%>

<%var FechaApoyo=String (Noticias("Fecha")) var FechaFinal=FechaApoyo.substr(8,2); FechaFinal+=FechaApoyo.substr(4, 4); FechaFinal+=FechaApoyo.substr(0, 4); %> (<%=FechaFinal +") "+Noticias("Resumen1") +" " +Noticias("Resumen2")%>

<%if(Cuantos>0) { %> Página <%=PaginaNum%> de <%=Pintar%> <% } %>

<% var Anterior="listadoNoticias.asp"+Cadena +"&Pagina="+PaginaAnterior if (PaginaNum > 1) {%> / <%} var Siguiente="listadoNoticias.asp"+Cadena +"&Pagina="+PaginaSiguiente if (PaginaNum < Pintar) {%> <%}%>

<% Conexion.Close(); %>