<%@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_articulo_detalle__MMColParam rec_articulo_detalle__MMColParam = "1" If (Request.QueryString("sec") <> "") Then rec_articulo_detalle__MMColParam = Request.QueryString("sec") End If %> <% Dim rec_articulo_detalle Dim rec_articulo_detalle_numRows Set rec_articulo_detalle = Server.CreateObject("ADODB.Recordset") rec_articulo_detalle.ActiveConnection = MM_con_db_medicinaalterna_STRING rec_articulo_detalle.Source = "SELECT autor, descripcion_articulo, fecha, titulo_articulo FROM to_articulos WHERE sec = " + Replace(rec_articulo_detalle__MMColParam, "'", "''") + "" rec_articulo_detalle.CursorType = 0 rec_articulo_detalle.CursorLocation = 2 rec_articulo_detalle.LockType = 1 rec_articulo_detalle.Open() rec_articulo_detalle_numRows = 0 %> <% Dim rec_articulos Dim rec_articulos_numRows Set rec_articulos = Server.CreateObject("ADODB.Recordset") rec_articulos.ActiveConnection = rec_articulo_detalle.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 %> <%=(rec_articulo_detalle.Fields.Item("titulo_articulo").Value)%> - 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
<%=(rec_articulo_detalle.Fields.Item("titulo_articulo").Value)%>
<%=(rec_articulo_detalle.Fields.Item("descripcion_articulo").Value)%>
Autor: <%=(rec_articulo_detalle.Fields.Item("autor").Value)%>
Fecha: <%=(rec_articulo_detalle.Fields.Item("fecha").Value)%>
Regresar a Administración de secciones Ver todos los artículos
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: Optimsoft Cía. Ltda.
<% rec_articulo_detalle.Close() Set rec_articulo_detalle = Nothing %> <% rec_articulos.Close() Set rec_articulos = Nothing %>