<% Response.expires = 0 'on error resume next dim conexion dim rstdatos dim rstmaximo dim sql set conexion=server.CreateObject("adodb.connection") conexion.Open "dsnforociudadano","forociudadanousr","foro2003ciu" %> FORO CIUDADANO DE LA REGION DE MURCIA
Red Progresista
BOTTUP
AMECO Press
Sin Permiso
One World
Diagonal
Planet Murcia
IPS Noticias
ANIA
ediciones simbióticas
Periodismo Ciudadano
Revistas Culturales
Monde Diplomatique

 
 NOTICIAS

<% ''''consulta para obtener el listado de categorías de foros activos set rstdatoslistado=Server.CreateObject("adodb.recordset") sql = "select idcategoriaNoticia, Descripcion " sql = sql & "from categorias_Noticias where " sql = sql & "activo<>0 " rstdatoslistado.open sql,conexion,1,4 ''''consulta para obtener las Noticias set rstdatos=Server.CreateObject("adodb.recordset") sql = "Select top 14 categorias_noticias.descripcion as descripcion, noticias.idcategoriaNoticia, idNoticia, " sql = sql & "Fecha, cabecera, imagen, Detalle from noticias inner join categorias_noticias " sql = sql & "on noticias.idcategorianoticia=categorias_noticias.idcategorianoticia where " sql = sql & "noticias.activo<>0 and categorias_noticias.activo<>0 " sql = sql & "and descripcion = 'noticias' " sql = sql & "order by fecha desc, cabecera " 'response.write sql rstdatos.Open sql,conexion,1,4 %> <%if rstdatos.EOF then%>
No se encontraron elementos

| Anterior |
<%else%>
<% for i=1 to 4 'response.write rstdatos.recordcount if rstdatos.EOF then exit for%>
<%=rstdatos("cabecera")%>  <%=day(rstdatos("fecha")) & "/" & month(rstdatos("fecha")) & "/" & year(rstdatos("fecha"))%>

<%if not isnull(rstdatos("imagen")) then varimagen=rstdatos("imagen") varimagen=replace(varimagen," ","%20")%> <%end if%>


<%if rstdatos("detalle")<>"" then%> <%=Replace(Trim(mid(rstdatos("detalle"),1,400)), chr(13), "
")%>  <%if len(rstdatos("detalle"))>400 then%> ...  <%end if%> <%end if%>

¶m2=<%=rstdatos("idNoticia")%>" target="_self" class="textocomun">[+] INFORMACIÓN


<% rstdatos.MoveNext next%> <%if not rstdatos.EOF then%>
Titular Fecha
<%do until rstdatos.EOF 'response.write rstdatos.recordcount if rstdatos.EOF then exit do%>
¶m2=<%=rstdatos("idNoticia")%>" target="_self" class="textocomun"><%=rstdatos("cabecera")%>  <%=day(rstdatos("fecha")) & "/" & month(rstdatos("fecha")) & "/" & year(rstdatos("fecha"))%>
<% rstdatos.MoveNext loop%> <%end if%> <% end if %> <% rstdatos.close rstdatoslistado.close conexion.close%>
Si deseas ver más noticias utiliza el buscador: Buscador

 

 
© Foro Ciudadano