..::: MARINA BADALONA :::..

<% 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 :::..

Castellano - English

<% Registro1 = 0 Set RS = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * FROM MB_noticies WHERE activo = 0 ORDER BY data DESC" RS.Open Sql,Con, adOpenStatic, adLockReadOnly, adCmdText if Not RS.Eof then RS.PageSize = 6 RS.AbsolutePage = Session("Pagina") Registro = 0 do while Registro < 6 and not RS.Eof if Session("Pagina") = 1 then if Registro1 > 2 then %> <% end if else %> <% end if Registro = Registro + 1 RS.MoveNext Registro1 = Registro1 + 1 Loop %> <% else %> <% end if %>




	NOTÍCIES		CRONOLOGIA PORT

<% if RS("img1") <>"" then %>" width="161" height="119"><% else %><%end if%>	<%=RS("datatexto")%>
	<%=UCase(RS("titulo"))%>
	<% if RS("descripcio")<>"" then %><%=Replace(RS("descripcio"),".","·")%><%end if %>

<% if RS("img1") <>"" then %>" width="161" height="119"><% else %><%end if%>	<%=RS("datatexto")%>
	<%=UCase(RS("titulo"))%>
	<% if RS("descripcio")<>"" then %><%=Replace(RS("descripcio"),".","·")%><%end if %>

<% 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 noves noticies

	NOTÍCIES		CRONOLOGIA PORT

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