<% If (Request.QueryString("Pagina") = "Siguiente") then Session("Pagina") = Session("Pagina") + 1 else if (Request.QueryString("Pagina") = "Anterior") then Session("Pagina") = Session("Pagina") -1 else if (Request.QueryString("Pagina") = "Ultimo") then Session("Pagina") = Request.QueryString("num") else Session("Pagina") = 1 end if end if end if %> ..::: MARINA BADALONA :::..
<% Set RS = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * FROM MB_cronologia ORDER BY data DESC" RS.Open Sql,Con, adOpenStatic, adLockReadOnly, adCmdText if Not RS.Eof then RS.PageSize = 8 RS.AbsolutePage = Session("Pagina") Registro = 0 do while Registro < 8 and not RS.Eof %> <% RS.MoveNext Registro = Registro + 1 Loop %> <% else %> <% end if %>
ARXIU   NOTICIES  
   
  <%=UCase(RS("datatexto"))%>  
<%=RS("descripcio")%>  
     
     
  <% IF Session ("Pagina") > 1 THEN %> <% END IF IF Session ("Pagina") < RS.PageCount THEN %> <% END IF %> Pàgina <%=Session("Pagina")%> de <%=RS.PageCount%>
  No hi ha noticies
   
  ARXIU   NOTICIES  
                             
 Castellano - English
La Societat Marina Badalona
Actualitat
Enllaços
Contacte
Documents
Perfil de contractant
Àrea Tècnica
Restauració
Serveis nàutics









 
 
 
 
 
 
 
 
 
 
 
 
 
 
<% RS.Close Con.Close Set RS = Nothing Set Con = Nothing %>