<% Set conexion1=Server.CreateObject("ADODB.Connection") conexion1.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Jurisoft;PASSWORD=Jur1s0ft;Initial Catalog='g3';Data Source=10.54.148.84;" dim registros1 Set registros1 = conexion1.Execute("select top 5 * from documentos inner join web_documento on documentos.id=web_documento.iddocumento where idweb=49 and documentos.visible<>0 and validado<>0 and portadaweb<>0 and (idseccion=325 or idseccion in (select id from familias where madre=325)) order by documentos.fecha desc, titulo, documentos.id") Do While Not registros1.EOF %>
 
<% registros1.MoveNext Loop registros1.Close Set registros1 = Nothing conexion1.Close Set conexion1 = Nothing %>