<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_con_db_medicinaalterna_STRING MM_con_db_medicinaalterna_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("./") & "\BDD\db_medicinaalterna.mdb" & ";Persist Security Info=False" %> <% Dim rec_articulos Dim rec_articulos_numRows Set rec_articulos = Server.CreateObject("ADODB.Recordset") rec_articulos.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 = 2 Repeat1__index = 0 rec_articulo_numRows = rec_articulo_numRows + Repeat1__numRows %> Contáctenos - Consultorio Médico Alterno
Contáctenos
Inicio Enviar un E-mail Preguntas Frecuentes Administrador
INICIO | QUIENES SOMOS | SERVICIOS | RECETAS CASERAS | CONTACTENOS
FORMULARIO PARA CONTACTARSE:
 DATOS GENERALES
* Nombres:
* Apellidos:
* Teléfonos:
* Email:
Dirección:
País:
Ciudad:
 OBSERVACIONES
Comentarios y Sugerencias
 
ARTICULOS DESTACADOS
<% While ((Repeat1__numRows <> 0) AND (NOT rec_articulos.EOF)) %>

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

<% if (Repeat1__numRows <> 1) Then%>
<% End if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rec_articulos.MoveNext() Wend %>
Diseño, Programación y Desarrollo: ESTRATEC
<% rec_articulos.Close() Set rec_articulos = Nothing %>