COMUNICADOS <% Set ObjConn=Server.CreateObject("ADODB.Connection") ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=D:\whb\Sites\7912\DataFiles\adesalambrar.mdb;UID=admin" Set tabla=server.createobject("adodb.recordset") sql="SELECT * from Opinion order by fecha_noticia desc" tabla.open sql,objconn,1,3 do while tabla.eof=False response.write("") end if response.write("
") %> <%=day(tabla.fields("fecha_noticia"))%>-<%=month(tabla.fields("fecha_noticia"))%>-<%=year(tabla.fields("fecha_noticia"))%> <% 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
") response.write("
") response.write("
") tabla.movenext loop tabla.close objconn.close set tabla=nothing set objconn=nothing %>