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

<% 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 Registro = 0 do while not RS.Eof and Registro < 3 Registro = Registro + 1 %> <% RS.MoveNext Loop else %> <% end if %>




	ARXIU		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 %>

		No hi ha noves noticies

	ARXIU		CRONOLOGIA PORT

Castellano - English

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