<% '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 TOP 3 * FROM noticias where not_idgrupo=" & v_id_despacho & " and not_borrado=0 ORDER BY not_idNoticia desc") Do While Not registros.EOF v_idnoticia=registros.Fields("not_idNoticia").Value 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://desarrollo.jurisoft.es/Ges_Noticias/resources/fotos/cgpe/" & v_imagen end if %>
 
<% registros.MoveNext Loop registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing %>