<%@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 rec_recetas_listado Dim rec_recetas_listado_numRows Set rec_recetas_listado = Server.CreateObject("ADODB.Recordset") rec_recetas_listado.ActiveConnection = rec_articulos.ActiveConnection 'MM_con_db_medicinaalterna_STRING rec_recetas_listado.Source = "SELECT sec, titulo_recetas FROM to_recetas ORDER BY titulo_recetas ASC" rec_recetas_listado.CursorType = 0 rec_recetas_listado.CursorLocation = 2 rec_recetas_listado.LockType = 1 rec_recetas_listado.Open() rec_recetas_listado_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rec_recetas_listado_numRows = rec_recetas_listado_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 2 Repeat2__index = 0 rec_articulos_numRows = rec_articulos_numRows + Repeat2__numRows %> Recetas Caceras - Medicina Alternativa
RECETAS CASERAS
Inicio Enviar un E-mail Preguntas Frecuentes Administrador
INICIO | QUIENES SOMOS | SERVICIOS | RECETAS CASERAS | CONTACTENOS

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

" class="Links_Cabecera fade"> ·<%=(rec_recetas_listado.Fields.Item("titulo_recetas").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rec_recetas_listado.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: ESTRATEC
<% rec_articulos.Close() Set rec_articulos = Nothing %> <% rec_recetas_listado.Close() Set rec_recetas_listado = Nothing %>