<% Function tex(cadena) cadena = Replace(cadena,vbCrLf,"
") tex = cadena End Function sSQL="SELECT * FROM cultura ORDER BY Fecha ASC" 'esta sentencia SQL puede ser creada a partir de un buscador como el que hemos visto en otro reportaje 'y almacenada en una session para emplearla sucesivas veces en el script: session("ssql")=ssql 'actualizamos numero de pagina If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If 'constantes ADO VBScript Set Conn = Server.CreateObject("ADODB.Connection") Set Command = Server.CreateObject("ADODB.Command") Set RS =Server.CreateObject("ADODB.RecordSet") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\XVRT\laroda.es\DATA\juventud.mdb" RS.Open sSQL,Conn,adopenstatic,adcmdtext If RS.EOF AND RS.BOF Then%>No se han encontrado eventos <% else 'resultados por pagina a elegir arbitrariamente num_registros = 5 'Dimensionamos las paginas y determinamos la pagina actual RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") Dim iPageCurrent 'Contamos el numero de campos registros_mostrados = 0 While (Not RS.eof And registros_mostrados < num_registros) registros_mostrados = registros_mostrados +1 dia = Day(RS("fecha")) mes = Month(RS("fecha")) ano = Year(RS("fecha")) fecha=dia&"/"&mes&"/"&ano Textocentro = RS("Descripcion") textoalt= LEFT(RS("Titulo"),30) Textocentro3 = LEFT(Textocentro,126) %> <% RS.MoveNext Wend %> Página: <%=Session("pagina")%> de <%=RS.PageCount%>
Ir a página :>> <% i=0 While i <%=i%><% Wend %> <% end if RS.Close Conn.Close %>

Volver