<% @Language=VBScript %> Plataforma A Desalambrar


NUESTRAS ACTIVIDADES
"Patrocina el Excmo. Ayuntamiento de Córdoba. Concejalía de Medio Ambiente".
<% Set ObjConn=Server.CreateObject("ADODB.Connection") ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=D:\whb\Sites\12344\Web\adesalambrar.mdb;UID=admin" Set tabla=server.createobject("adodb.recordset") sql="SELECT * from actividades WHERE (((ACTIVIDADES.organizador)='PLATAFORMA A DESALAMBRAR' OR (actividades.organizador)='PLATAFORMA POR LOS CAMINOS PÚBLICOS') and (actividades.fecha_noticia)>=Now()-1) order by fecha_noticia asc" tabla.open sql,objconn,1,3 do while tabla.eof=False %> <% end if %> <% tabla.movenext loop tabla.close %>
<%=day(tabla.fields("fecha_noticia"))%>-<%=month(tabla.fields("fecha_noticia"))%>-<%=year(tabla.fields("fecha_noticia"))%> <% response.write("") response.write(". ") response.write(TABLA.FIELDS("ORGANIZADOR")) response.write(" | ") response.write(tabla.fields("Titulo")) response.write("
") response.write(tabla.fields("Noticia")) if tabla.fields("direccion_web")<>"" THEN response.write("
+ información
") end if %>
<% if tabla.fields("foto")<>"" THEN %> "> " width="300" />
OTRAS CONVOCATORIAS QUE APOYAMOS <% Set ObjConn=Server.CreateObject("ADODB.Connection") ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=D:\whb\Sites\12344\Web\adesalambrar.mdb;UID=admin" Set tabla=server.createobject("adodb.recordset") sql="SELECT * from actividades WHERE (((ACTIVIDADES.organizador)<>'PLATAFORMA A DESALAMBRAR' AND (actividades.organizador)<>'PLATAFORMA POR LOS CAMINOS PÚBLICOS') and (actividades.fecha_noticia)>=Now()-1) order by fecha_noticia asc" tabla.open sql,objconn,1,3 do while tabla.eof=False %> <% end if %> <% tabla.movenext loop tabla.close %>
<%=day(tabla.fields("fecha_noticia"))%>-<%=month(tabla.fields("fecha_noticia"))%>-<%=year(tabla.fields("fecha_noticia"))%> <% response.write("") response.write(". ") response.write(TABLA.FIELDS("ORGANIZADOR")) RESPonse.write(" | ") response.write(tabla.fields("Titulo")) response.write("
") response.write(tabla.fields("Noticia")) if tabla.fields("direccion_web")<>"" THEN response.write("
+ información
") end if %>
<% if tabla.fields("foto")<>"" THEN %> "> " width="300" />
NUESTRA OPINIÓN <% sql="SELECT * from Opinion WHERE (((Opinion.fecha_noticia)>Now()-31)) order by fecha_noticia desc" tabla.open sql,objconn,1,3 do while tabla.eof=False %> <% end if %> <% tabla.movenext loop tabla.close %>
<% if tabla.fields("foto")<>"" THEN %> "> " width="300" /> <%=day(tabla.fields("fecha_noticia"))%>-<%=month(tabla.fields("fecha_noticia"))%>-<%=year(tabla.fields("fecha_noticia"))%> <% response.write("") response.write(" | ") response.write(tabla.fields("Titulo")) response.write("
") response.write(tabla.fields("Noticia")) if tabla.fields("direccion_web")<>"" THEN response.write("
Pincha aquí para + info
") end if %>
NOVEDADES SOBRE A DESALAMBRAR O SOBRE LA WEB <% sql="SELECT * from NOVEDADES WHERE (((novedades.fecha_noticia)>Now()-31)) order by fecha_noticia desc" tabla.open sql,objconn,1,3 do while tabla.eof=False %> <% end if %> <% tabla.movenext loop tabla.close %>
<% if tabla.fields("foto")<>"" THEN %> "> " width="300" /> <%=day(tabla.fields("fecha_noticia"))%>-<%=month(tabla.fields("fecha_noticia"))%>-<%=year(tabla.fields("fecha_noticia"))%> <% response.write("") response.write(" | ") response.write("
") response.write(tabla.fields("Titulo")) if tabla.fields("direccion_web")<>"" THEN response.write("
Pincha aquí para verlo
") end if %>
NOTICIAS PUBLICADAS EN PRENSA O INTERNET SOBRE LOS CAMINOS DE CÓRDOBA <% sql="SELECT * FROM Noticias WHERE (((Noticias.LUGAR)='CÓRDOBA' OR (noticias.lugar)='POSADAS') and ((noticias.fecha_noticia)>Now()-31)) ORDER BY fecha_noticia DESC" tabla.open sql,objconn,1,3 do while tabla.eof=False %> <% end if %> <% tabla.movenext loop tabla.close %>
<%=day(tabla.fields("fecha_noticia"))%>-<%=month(tabla.fields("fecha_noticia"))%>-<%=year(tabla.fields("fecha_noticia"))%> <% response.write("") response.write(" | ") response.write(tabla.fields("Titulo")) response.write("
") response.write(left(tabla.fields("Noticia"),250)) if tabla.fields("direccion_web")<>"" THEN response.write("
Pincha aquí para + info
") end if %>
<% if tabla.fields("foto")<>"" THEN %> "> " width="300" />
NOTICIAS PUBLICADAS EN PRENSA O INTERNET SOBRE CAMINOS EN OTROS LUGARES <% sql="SELECT * from noticias WHERE (((Noticias.LUGAR)<>'CÓRDOBA' and (noticias.lugar)<>'POSADAS' and ((noticias.fecha_noticia)>Now()-31))) order by fecha_noticia desc" tabla.open sql,objconn,1,3 do while tabla.eof=False %> <% end if %> <% tabla.movenext loop tabla.close %>
<%=day(tabla.fields("fecha_noticia"))%>-<%=month(tabla.fields("fecha_noticia"))%>-<%=year(tabla.fields("fecha_noticia"))%> <% response.write("") response.write(". ") response.write(tabla.fields("lugar")) response.write(" | ") response.write(tabla.fields("Titulo")) response.write("
") response.write(left(tabla.fields("Noticia"),250)) if tabla.fields("direccion_web")<>"" THEN response.write("
Pincha aquí para + info
") end if %>
<% if tabla.fields("foto")<>"" THEN %> "> " width="300" />
ÚLTIMOS ENLACES AÑADIDOS <% sql="SELECT * from ENLACES WHERE (((enlaces.fecha)>Now()-31)) order by fecha desc" tabla.open sql,objconn,1,3 do while tabla.eof=False %> <% end if %> <% tabla.movenext loop tabla.close %>
<% if tabla.fields("logo")<>"" THEN %> "> " width="200" /> <% response.write("
") response.write(tabla.fields("Nombre")) response.write("
") response.write(left(tabla.fields("comentario"),250)) if tabla.fields("enlace")<>"" THEN response.write("
Pincha aquí para verlo
") end if %>