<%@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 visitas Dim visitas_numRows Set visitas = Server.CreateObject("ADODB.Recordset") visitas.ActiveConnection = MM_datos_STRING visitas.Source = "SELECT * FROM libro_visitas ORDER BY fecha DESC" visitas.CursorType = 0 visitas.CursorLocation = 2 visitas.LockType = 1 visitas.Open() visitas_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 menu_numRows = menu_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 visitas_numRows = visitas_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 6 Repeat2__index = 0 noticias_numRows = noticias_numRows + Repeat2__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)%>

LIBRO DE VISITAS

 

<% While ((Repeat3__numRows <> 0) AND (NOT visitas.EOF)) %> <% If Not visitas.EOF Or Not visitas.BOF Then %> <% fecha_15_aux = (visitas.Fields.Item("fecha").Value) fecha_15_aux = Replace(fecha_15_aux, "/", "") fecha_15_dia = Mid(fecha_15_aux, 1, 2) fecha_15_mes = Mid(fecha_15_aux, 3, 2) fecha_15_ano = Mid(fecha_15_aux, 5, 4) fecha_15 = fecha_15_mes & "/" & fecha_15_dia & "/" & fecha_15_ano %> <% if (visitas.Fields.Item("opinion").Value) <> "" then %> <% end if %> <% if (visitas.Fields.Item("scout").Value) <> "" then %> <% end if %> <% if (visitas.Fields.Item("edad").Value) <> "" then %> <% end if %>
<%=(visitas.Fields.Item("nombre").Value)%> <% if (visitas.Fields.Item("email").Value)<> "" then%> "> <% end if%> <% if (visitas.Fields.Item("web").Value) <> "http://" then%> ">nueva <% end if%> <%if session("elpilar_admin") <> "" then %> "> <% end if %>
<%= DoDateTime((visitas.Fields.Item("fecha").Value), 1, 3082) %>
<%=(visitas.Fields.Item("mensaje").Value)%>
Opinión de la Web
<%=(visitas.Fields.Item("opinion").Value)%>
¿Eres Scout?
<% if (visitas.Fields.Item("scout").Value) = TRUE then%> Si <% else %> No <% end if %>

<% End If ' end Not visitas.EOF Or NOT visitas.BOF %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 visitas.MoveNext() Wend%>

 

¡¡Deja tu huella!!: Firma en nuestro libro de visitas

 
Arriba

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