%
Set Connn = Server.CreateObject("ADODB.Connection")
Set rs55 = Server.CreateObject("ADOR.RecordSet")
Set rs5 = Server.CreateObject("ADOR.RecordSet")
Set rs6 = Server.CreateObject("ADOR.RecordSet")
Set rs7 = Server.CreateObject("ADOR.RecordSet")
strConn= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Base/cpm.mdb")
Connn.Open strConn
const AdOpenKeyset = 1
%>
Estudio a realizar
<%
if rs5.state <> adStateClosed then rs5.close
rs5.Open "Select * From Preparacion where activo= true ORDER BY Titulo ASC",Connn,3,1
if rs5.EOF then
else
for i = 1 to rs5.RecordCount
if i="1" then
%>
- <% =rs5.Fields("titulo") %>
-

" width="185" height="110" alt="">
- Clínica Privada Merlo
- (02656) 475136 / 476000 /
478087
- Horario:
- 8:00 - 11:00
Lunes -
Viernes
<% else
%>
- <% =rs5.Fields("titulo") %>
-

" width="185" height="110" alt="">
- Clínica Privada Merlo
- (02656) 475136 / 476000 /
478087
- Horario:
- 8:00 - 11:00
Lunes -
Viernes
<% end if%>
<% rs5.MoveNext
if rs5.EOF then
exit for
else
' next
end if
next
end if
rs5.Close
set rs5 = nothing
%>
Copyrights ©2015: Clinica Privada Merlo -
Desarrollado por
NetBUSS