Grupo Scout Ntra. Sra. del Pilar

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

Listado de Campamentos

<% Dim cursos Dim cursos_numRows Set cursos = Server.CreateObject("ADODB.Recordset") cursos.ActiveConnection = MM_datos_STRING cursos.Source = "SELECT * FROM cursos ORDER BY curso DESC" cursos.CursorType = 3 cursos.CursorLocation = 2 cursos.LockType = 1 cursos.Open() cursos_numRows = 0 %> <% Dim Repite1__numRows Dim Repite1__index Repite1__numRows = -1 Repite1__index = 0 cursos_numRows = cursos_numRows + Repite1__numRows %> <% Dim Repite2__numRows Dim Repite2__index Repite2__numRows = -1 Repite2__index = 0 campamentos_numRows = campamentos_numRows + Repite2__numRows %> <% Dim Repite3__numRows Dim Repite3__index Repite3__numRows = -1 Repite3__index = 0 acampadas_numRows = acampadas_numRows + Repite3__numRows %>

<% While ((Repite1__numRows <> 0) AND (NOT cursos.EOF)) %> <% Dim campamentos__MMColParam2 campamentos__MMColParam2 = (cursos.Fields.Item("curso").Value) If (Request("MM_EmptyValue") <> "") Then campamentos__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim campamentos__MMColParam campamentos__MMColParam = "campamento" If (Request("MM_EmptyValue") <> "") Then campamentos__MMColParam = Request("MM_EmptyValue") End If %> <% Dim campamentos Dim campamentos_numRows Set campamentos = Server.CreateObject("ADODB.Recordset") campamentos.ActiveConnection = MM_datos_STRING campamentos.Source = "SELECT * FROM campamentos WHERE tipo = '" + Replace(campamentos__MMColParam, "'", "''") + "' and curso = '" + Replace(campamentos__MMColParam2, "'", "''") + "'" campamentos.CursorType = 0 campamentos.CursorLocation = 2 campamentos.LockType = 1 campamentos.Open() campamentos_numRows = 0 %> <% Dim acampadas__MMColParam2 acampadas__MMColParam2 = (cursos.Fields.Item("curso").Value) If (Request("MM_EmptyValue") <> "") Then acampadas__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim acampadas__MMColParam acampadas__MMColParam = "acampada" If (Request("MM_EmptyValue") <> "") Then acampadas__MMColParam = Request("MM_EmptyValue") End If %> <% Dim acampadas Dim acampadas_numRows Set acampadas = Server.CreateObject("ADODB.Recordset") acampadas.ActiveConnection = MM_datos_STRING acampadas.Source = "SELECT * FROM campamentos WHERE tipo = '" + Replace(acampadas__MMColParam, "'", "''") + "' and curso = '" + Replace(acampadas__MMColParam2, "'", "''") + "'" acampadas.CursorType = 0 acampadas.CursorLocation = 2 acampadas.LockType = 1 acampadas.Open() acampadas_numRows = 0 %> <% If Not campamentos.EOF Or Not campamentos.BOF Then %> <% End If ' end Not campamentos.EOF Or NOT campamentos.BOF %> <% While ((Repite2__numRows <> 0) AND (NOT campamentos.EOF)) %> <% If campamentos.EOF And campamentos.BOF Then %> <% End If ' end campamentos.EOF And campamentos.BOF %> <% Repite2__index=Repite2__index+1 Repite2__numRows=Repite2__numRows-1 campamentos.MoveNext() Wend %> <% If Not acampadas.EOF Or Not acampadas.BOF Then %> <% select case mid((acampadas.Fields.Item("desde").Value),4,2) case 1: mes="Enero" case 2: mes="Febrero" case 3: mes="Marzo" case 4: mes="Abril" case 5: mes="Mayo" case 6: mes="Junio" case 7: mes="Julio" case 8: mes="Agosto" case 9: mes="Septiembre" case 10: mes="Octubre" case 11: mes="Noviembre" case 12: mes="Diciembre" end select %> <% End If ' end Not acampadas.EOF Or NOT acampadas.BOF %> <% While ((Repite3__numRows <> 0) AND (NOT acampadas.EOF)) %> <% Repite3__index=Repite3__index+1 Repite3__numRows=Repite3__numRows-1 acampadas.MoveNext() Wend %> <% If acampadas.EOF And acampadas.BOF Then %> <% End If ' end acampadas.EOF And acampadas.BOF %> <% campamentos.Close() Set campamentos = Nothing %> <% acampadas.Close() Set acampadas = Nothing %>

CURSO <%=(cursos.Fields.Item("curso").Value)%>
CAMPAMENTOS
	NOMBRE	LUGAR	TIPO	RAMA	PRECIO	SUSPENDIDA	DETALLES	CIRCULAR	AUTORIZACIÓN	FOTOS
	<%=(campamentos.Fields.Item("nombre").Value)%>	<%=(campamentos.Fields.Item("lugar").Value)%>	<%=(campamentos.Fields.Item("subtipo").Value)%>	<%=(campamentos.Fields.Item("rama").Value)%>	<% if isNull(campamentos.Fields.Item("precio").Value) = false then%> <%=(campamentos.Fields.Item("precio").Value)%> € <% else %> Sin determinar <% end if %>	<% if (campamentos.Fields.Item("suspendida").Value) = true then%> <%=(campamentos.Fields.Item("razon_suspenso").Value)%> <% else %> No <% end if %>	" target="detalles">	<% if (campamentos.Fields.Item("circular").Value) <> "" then%> " target="_blank"> <% else %> - <% end if %> <% select case mid((campamentos.Fields.Item("desde").Value),4,2) case "/1": mes="Enero" case "/2": mes="Febrero" case "/3": mes="Marzo" case "/4": mes="Abril" case "/5": mes="Mayo" case "/6": mes="Junio" case "/7": mes="Julio" case "/8": mes="Agosto" case "/9": mes="Septiembre" case 10: mes="Octubre" case 11: mes="Noviembre" case 12: mes="Diciembre" end select %>	&b=<%=mid((campamentos.Fields.Item("hasta").Value),1,2)%>&c=<%=mid((campamentos.Fields.Item("desde").Value),7)%>&d=<%=(campamentos.Fields.Item("nombre").Value)%>&e=<%=(campamentos.Fields.Item("lugar").Value)%>&f=<%=mes%>">	<% if (campamentos.Fields.Item("fotos").Value) <> "" then%> " target="fotos"> <% else %> - <% end if %>
No hay campamentos en el curso <%=(cursos.Fields.Item("curso").Value)%> en la base de datos
ACAMPADAS
	NOMBRE	LUGAR	TIPO	RAMA	PRECIO	SUSPENDIDA	DETALLES	CIRCULAR	AUTORIZACIÓN	FOTOS
	<%=(acampadas.Fields.Item("nombre").Value)%>	<%=(acampadas.Fields.Item("lugar").Value)%>	<%=(acampadas.Fields.Item("subtipo").Value)%>	<%=(acampadas.Fields.Item("rama").Value)%>	<% if isNull(acampadas.Fields.Item("precio").Value) = false then%> <%=(acampadas.Fields.Item("precio").Value)%> € <% else %> Sin determinar <% end if %>	<% if (acampadas.Fields.Item("suspendida").Value) = true then%> <%=(acampadas.Fields.Item("razon_suspenso").Value)%> <% else %> No <% end if %>	" target="detalles">	<% if (acampadas.Fields.Item("circular").Value) <> "" then%> " target="_blank"> <% else %> - <% end if %>	&b=<%=mid((acampadas.Fields.Item("hasta").Value),1,2)%>&c=<%=mid((acampadas.Fields.Item("desde").Value),7)%>&d=<%=(acampadas.Fields.Item("nombre").Value)%>&e=<%=(acampadas.Fields.Item("lugar").Value)%>&f=<%=mes%>">	<% if (acampadas.Fields.Item("fotos").Value) <> "" then%> " target="fotos"> <% else %> - <% end if %>
No hay acampadas en el curso <%=(cursos.Fields.Item("curso").Value)%> en la base de datos

<% Repite1__index=Repite1__index+1 Repite1__numRows=Repite1__numRows-1 cursos.MoveNext() Wend %>

<% cursos.Close() Set cursos = Nothing %>

Arriba