<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Lo_Ultimo__MMColParam Lo_Ultimo__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then Lo_Ultimo__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Lo_Ultimo Dim Lo_Ultimo_numRows Set Lo_Ultimo = Server.CreateObject("ADODB.Recordset") Lo_Ultimo.ActiveConnection = MM_datos_STRING Lo_Ultimo.Source = "SELECT * FROM loultimo WHERE Id = " + Replace(Lo_Ultimo__MMColParam, "'", "''") + "" Lo_Ultimo.CursorType = 0 Lo_Ultimo.CursorLocation = 2 Lo_Ultimo.LockType = 1 Lo_Ultimo.Open() Lo_Ultimo_numRows = 0 %> <% Dim menu Dim menu_numRows Set menu = Server.CreateObject("ADODB.Recordset") menu.ActiveConnection = MM_datos_STRING menu.Source = "SELECT * FROM menu ORDER BY padre ASC" menu.CursorType = 0 menu.CursorLocation = 2 menu.LockType = 1 menu.Open() menu_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_datos_STRING Recordset1.Source = "SELECT * FROM circulares ORDER BY fecha DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 menu_numRows = menu_numRows + Repeat1__numRows %> Grupo Scout Ntra. Sra. del Pilar

<% While ((Repeat1__numRows <> 0) AND (NOT menu.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 menu.MoveNext() Wend %>
MENU


LO ULTIMO: <%=(Lo_Ultimo.Fields.Item("titulo").Value)%>

CIRCULARES ENTREGADAS

 

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Circulares
Nombre
Tipo
Fecha
Descargar

<%=(Recordset1.Fields.Item("nombre").Value)%>
<%=(Recordset1.Fields.Item("tipo").Value)%>
<%= DoDateTime((Recordset1.Fields.Item("fecha").Value), 2, -1) %>
">
"> <%end if%> ">

 

Plantillas de Autorizaciones:
  • Generador de Autorizaciones: Use este generador de autorizaciones si ha extraviado el que nosotros entregamos en las circulares o si lo necesita para algo

<%if session("elpilar_admin") <> "" then %> Insertar nueva circular <% end if %>

Arriba

Todos los derechos reservados <%= year(now) %>
Web creada por Ángel Cardiel
<% Lo_Ultimo.Close() Set Lo_Ultimo = Nothing %> <% menu.Close() Set menu = Nothing %> <% Recordset1.Close() Set Recordset1 = Nothing %>