<% option explicit dim idseccion dim strSQL, cnnBD, rsBD, strConexion ,strSelectSeccion, intIdIdioma, strSelec dim intNumNoticias,strSigPag, strPagAnt, intPagActual dim intCont if request("idioma")<>"" then intIdIdioma=request("idioma") else 'Idioma per defecte intIdIdioma=2 end if Set cnnBD = Server.CreateObject("ADODB.Connection") Set rsBD = Server.CreateObject("ADODB.Recordset") strConexion="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("../../admin/spa.mdb") cnnBD.Open (strConexion) strSQL="SELECT * FROM secciones WHERE seccion_idioma=" & intIdIdioma rsBD.Open strSQL, cnnBD strSelectSeccion="" rsBD.close if cint(idseccion)=-1 then strSQL="Select count(*) FROM noticias,secciones where seccion_idioma=" & intIdIdioma & " AND noticia_idseccion=seccion_id" else strSQL="Select count(*) FROM noticias WHERE noticia_idseccion=" & idseccion end if 'response.Write(strSQL) 'response.End() rsBD.Open strSQL, cnnBD if not rsBD.EOF then intNumNoticias=rsBD(0) rsBD.close end if if request("pag")>1 then intPagActual=request("pag") strPagAnt="< Página anterior" else intPagActual=1 strPagAnt="" end if if intNumNoticias>(4*intPagActual) then strSigPag=" Página siguiente>" else strSigPag="" end if if Cint(idseccion)=-1 then strSQL="Select * FROM noticias,secciones where seccion_idioma=" & intIdIdioma & " AND noticia_idseccion=seccion_id ORDER BY noticia_fecha DESC" else strSQL="Select * FROM noticias WHERE noticia_idseccion=" & idseccion & " ORDER BY noticia_fecha DESC" end if rsBD.Open strSQL, cnnBD intCont=0 'response.Write("aqui: " & 4*(intPagActual-1)) while intCont<(4*(intPagActual-1)) rsBD.movenext ' response.Write(intCont) & "
" intCont=intCont+1 wend %> Spa Massatges
Artículos

"> <%=strSelectSeccion%>



<% intCont=1 while not(rsBD.EOF) and (intCont<=4)%>

<%=rsBD("noticia_fecha")%>

<%=rsBD("noticia_titulo")%>

Fuente: <%=rsBD("noticia_fuente")%>

<%=rsBD("noticia_texto")%>

Autor: <%=rsBD("noticia_autor")%>

<% intCont=intCont+1 rsBD.movenext wend%>
<%=strPagAnt%>          <%=strSigPag%>
Prada Casadet F 5-3 AD500 Andorra la Vella (Principat d'Andorra) Telf.: (+376) 379 477 Fax: (+376) 867 910 info@spamassatges.com
<% rsBD.close cnnBD.close set rsBD=nothing set cnnBD=nothing %>