Perez de Ayala Abogados - Noticias del despacho
<% 'Pruebas. Cambiar v_id_despacho=40 Set conexion=Server.CreateObject("ADODB.Connection") conexion.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Jurisoft;PASSWORD=Jur1s0ft;Initial Catalog='gestor_jurisoft';Data Source=10.54.148.84;" dim registros Set registros = conexion.Execute("SELECT * FROM noticias where not_idgrupo=" & v_id_despacho & " and not_borrado=0 ORDER BY not_idNoticia desc") Do While Not registros.EOF v_titular=registros.Fields("not_titular").Value v_texto=registros.Fields("not_texto").Value v_fuente=registros.Fields("not_fuente").Value v_enlace=Replace(registros.Fields("not_enlace").Value,"""","'") v_imagen=registros.Fields("not_imagen").Value v_rutaimagen="" if v_imagen<>"" then v_rutaimagen="http://www.jurisoft.es/desarrollo/Ges_Noticias/resources/fotos/ayala/" & v_imagen end if %>
  • <%= v_titular %>

<% if v_rutaimagen<>"" then%>
<%end if%>
<%= v_texto %>
<%if v_enlace<>"" then%>

Para más información: pinche aqui

<%end if%> <%if v_fuente<>"" then%>

Fuente: <%=v_fuente%>

<%end if%>
 
<% registros.MoveNext Loop registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing %>