<% Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADOR.RecordSet") Set rs8 = Server.CreateObject("ADOR.RecordSet") Set rs2 = Server.CreateObject("ADOR.RecordSet") Set rs9 = Server.CreateObject("ADOR.RecordSet") strConn= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Base/cpm.mdb") Conn.Open strConn const AdOpenKeyset = 1 %>

COBERTURAS / OBRAS SOCIALES

    <% if rs2.state <> adStateClosed then rs2.close rs2.Open "Select * From Coberturas where activo= true ORDER BY titulo ASC",Conn,3,1 if rs2.EOF then else for i = 1 to rs2.RecordCount %>
  • <% =rs2.Fields("titulo") %>
  • <% rs2.MoveNext if rs2.EOF then exit for else ' next end if next end if rs2.Close set rs2 = nothing %>
Copyrights ©2015: Clinica Privada Merlo - Desarrollado por NetBUSS