<% response.buffer = true 'get ID ID = request.querystring("ID") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "FMW" tID = ID sSQL="SELECT * FROM [C_articulos] WHERE [id_no]=" &tID 'Ejecutamos la orden set RS = Conn.Execute(sSQL) 'Mostramos los registros%> Facility Magazine
 
  
<% Do While Not RS.Eof %>
 
 
 
    <%=rs("titulo")%> | FM <%=rs("numero")%>
     por <%=rs("autor")%>
 
" alt="Facility Magazine" name="FacilityMagazine" width="220" hspace="20" vspace="20" border="0" id="Facility Magazine" style="border:#999999 solid 1px" />
 
     
  Para leer el texto completo en formato pdf o en el visor online, ingrese en la sección
"descargas" del menú principal.
Si aun no se registró como suscriptor, complete el formulario que encontrará en la sección
"suscripciones".		  
<% RS.MoveNext Loop 'Cerramos el sistema de conexion Conn.Close %>