<% 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
Quiénes somos Documentos Actividades Noticias Enlaces Boletín Contacto

Buscar:

Búsqueda avanzada
 
 ACTIVIDADES

<% ''''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 = 'actividades' " 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 actividades utiliza el buscador: Buscador

 

  
© Foro Ciudadano