<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rec_destacados Dim rec_destacados_numRows Set rec_destacados = Server.CreateObject("ADODB.Recordset") rec_destacados.ActiveConnection = MM_con_db_medicinaalterna_STRING rec_destacados.Source = "SELECT sec, titulo_articulo FROM to_articulos" rec_destacados.CursorType = 0 rec_destacados.CursorLocation = 2 rec_destacados.LockType = 1 rec_destacados.Open() rec_destacados_numRows = 0 %> <% Dim rec_articulos Dim rec_articulos_numRows Set rec_articulos = Server.CreateObject("ADODB.Recordset") rec_articulos.ActiveConnection = rec_destacados.ActiveConnection 'MM_con_db_medicinaalterna_STRING rec_articulos.Source = "SELECT TOP 2 sec, LEFT(descripcion_articulo,210) + ' ...' as descripcion_articulo, titulo_articulo FROM to_articulos ORDER BY fecha_pub DESC" rec_articulos.CursorType = 0 rec_articulos.CursorLocation = 2 rec_articulos.LockType = 1 rec_articulos.Open() rec_articulos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 30 Repeat1__index = 0 rec_destacados_numRows = rec_destacados_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 2 Repeat2__index = 0 rec_articulo_numRows = rec_articulo_numRows + Repeat2__numRows %> Artículos Destacados - Consultorio Médico Alterno
Artículos Destacados
Inicio Enviar un E-mail Preguntas Frecuentes Administrador
INICIO | QUIENES SOMOS | SERVICIOS | RECETAS CASERAS | CONTACTENOS

<% While ((Repeat1__numRows <> 0) AND (NOT rec_destacados.EOF)) %>

" class="Links_Cabecera fade"> ·<%=(rec_destacados.Fields.Item("titulo_articulo").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rec_destacados.MoveNext() Wend %>

ARTICULOS DESTACADOS
<% While ((Repeat2__numRows <> 0) AND (NOT rec_articulos.EOF)) %>

<%=(rec_articulos.Fields.Item("titulo_articulo").Value)%>
<%=(rec_articulos.Fields.Item("descripcion_articulo").Value)%>

<% if (Repeat2__numRows <> 1) Then%>
<% End if %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rec_articulos.MoveNext() Wend %>
Diseño, Programación y Desarrollo: Optimsoft Cía. Ltda.
<% rec_destacados.Close() Set rec_destacados = Nothing %> <% rec_articulos.Close() Set rec_articulos = Nothing %>