<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" @LCID = 1034%>
<!--#include file="encriptar.asp" -->
<%
Dim MM_datos_STRING
MM_datos_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../datos/827345qhjwdshfas7634ahsdfh.mdb")
MM_datos2_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../datos/827345qhjwdshfas7634ahsdfh.mdb")
%>
<%
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
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="avisos.asp?e2=La dirección de eMail ya existe en nuestra base de datos. Pruebe con otra"
  MM_rsKeyConnection=MM_datos_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("email"))
  MM_dupKeySQL="SELECT eMail FROM avisos WHERE eMail='" & MM_dupKeyUsernameValue & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_datos_STRING
  MM_editTable = "avisos"
  MM_editRedirectUrl = "avisos_encripta_alta.asp"
  MM_fieldsStr  = "apodo|value|email|value|pass|value|noticias|value|circulares|value|campamentos|value|informacion|value"
  MM_columnsStr = "apodo|',none,''|eMail|',none,''|pass|',none,''|noticias|none,1,0|circulares|none,1,0|campamentos|none,1,0|informacion|none,1,0"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
menu_numRows = menu_numRows + Repeat1__numRows
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("email"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="avisos2.asp"
  MM_redirectLoginFailed="avisos.asp?e=Acceso Erróneo"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_datos_STRING
  MM_rsUser.Source = "SELECT eMail, pass"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM avisos WHERE eMail='" & Replace(MM_valUsername,"'","''") &"' AND pass='" & Replace(EncodeStr(Request.Form("pass")),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
	Session("pilar_avisos") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 6
Repeat2__index = 0
noticias_numRows = noticias_numRows + Repeat2__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><!-- InstanceBegin template="/Templates/Subcarpeta.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<script> 
function uno(src,color_entrada) { 
    src.bgColor=color_entrada; 
} 
function dos(src,color_default) { 
    src.bgColor=color_default; 
} 
</script> 
<title>Grupo Scout Ntra. Sra. del Pilar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- InstanceBeginEditable name="head" -->
<meta http-equiv="Expires" content="0">
<meta http-equiv="Last-Modified" content="0">
<meta http-equiv="Cache-Control" content="no-cache, mustrevalidate">
<%
Response.expires= 0
Response.Expires=-1
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache" 
%>
<meta http-equiv="PRAGMA" value="NO-CACHE">
<meta http-equiv="Expires" content="Mon, 01 Jan 1990 12:00:00 GMT">

<meta http-equiv="Pragma" content="no-cache">
<style type="text/css">
<!--
.Estilo26 {font-size: 9px}
.Estilo27 {	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<style type="text/css">
<!--
.Estilo28 {font-family: Arial, Helvetica, sans-serif}
-->
</style>
<style type="text/css">
<!--
.Estilo29 {
	font-weight: bold;
	font-size: 12px;
}
-->
</style>
<style type="text/css">
<!--
.Estilo30 {font-family: Verdana, Arial, Helvetica, sans-serif}
-->
</style>
<style type="text/css">
<!--
.Estilo31 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }
-->
</style>
<style type="text/css">
<!--
.Estilo32 {color: #FF0000}
-->
</style>
<style type="text/css">
<!--
.Estilo34 {color: #FFFF00}
-->
</style>

<link href="images/estilo<%=session("elpilar_estilo")%>.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url(images/bg.gif);
	background-color: #D9DFC6;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
<style type="text/css">
<!--
.Estilo35 {color: #FFFFFF}
-->
</style>
<style type="text/css">
<!--
.Estilo36 {
	color: #666666;
	font-weight: bold;
}
-->
</style>
<style type="text/css">
<!--
.Estilo37 {
	font-size: 9px;
	color: #FF0000;
}
-->
</style>
<!-- InstanceEndEditable -->
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	background-image: url();
	background-color: #BECDE0;
}
.Estilo1 {
	color: #FFFFFF;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
}
.Estilo2 {
	font-size: 10px;
	font-family: Arial, Helvetica, sans-serif;
	color: #666666;
}
.Estilo9 {font-family: Arial, Helvetica, sans-serif}
.Estilo10 {font-size: 10px}
.Estilo11 {font-family: Arial, Helvetica, sans-serif; font-size: 10px; }
.Estilo17 {
	color: #666666;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
a {
	color: #666666;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	text-decoration: none;
}
a.visited {
	color: #666666;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	text-decoration: none;
}
a.hover {
	color: #666666;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	text-decoration: underline;
}

-->
</style>
<link href="../images/style_blue.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Estilo21 {color: #FF0000}
-->
</style>
</head>

<body>
<table width="97%" height="348" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr>
    <td height="69" align="right" valign="top" background="../images/logo_bg.gif"><div align="right"><img src="../images/logo_left.gif" width="125" height="69"></div></td>
    <td width="70%" height="69" background="../images/logo_bg.gif">
      <div align="right"><img src="../images/titulo.gif" width="522" height="69"></div></td>
    <td height="69" align="right" background="../images/logo_bg.gif"><div align="right"><img src="../images/logo_right.gif" width="125" height="69"></div></td>
  </tr>
  <tr>
    <td width="126" valign="top"><div align="center">        <br>
        <table width="0%"  border="0" cellpadding="0" cellspacing="0" bordercolor="#666666">
          <tr>
            <td width="36" height="25"><div align="left" class="Estilo10 Estilo9"><strong><img src="../images/hdr_left_house.gif" width="35" height="25"></strong></div></td>
            <td width="181" background="../images/hdr_bg.gif"><div align="center" class="Estilo11"><strong>MENU</strong></div></td>
            <td width="13"><div align="left"><img src="../images/hdr_right_small.gif" width="12" height="25"></div></td>
          </tr>
          <% 
While ((Repeat1__numRows <> 0) AND (NOT menu.EOF)) 
%>
          <tr onMouseOver="uno(this,'FFCC33');" onMouseOut="dos(this,'BECDE0');" bgcolor="#BECDE0">
            <td height="25" colspan="3"><div align="right"></div>
                <div align="left"><img src="../images/icon_newest_reply.gif" width="13" height="9" border="0" align="absmiddle">  <a href="../<%=(menu.Fields.Item("pagina").Value)%>" class="Estilo10"><%=(menu.Fields.Item("titulo").Value)%></a></div></td>
          </tr>
          <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  menu.MoveNext()
Wend
%>
        </table>
    </div></td>
    <td colspan="2" align="center" valign="top"><div align="center">
      <table width="95%"  border="0" cellpadding="5" cellspacing="0">
        <tr>
          <td valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="546" height="130" align="absmiddle">
            <param name="movie" value="../images/foto1.swf">
            <param name="quality" value="high">
            <param name="LOOP" value="false">
            <embed src="../images/foto1.swf" width="546" height="130" loop="false" align="absmiddle" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed>
          </object>
            <br>
            <br>
            <table width="96%" height="33"  border="1" align="center" bordercolor="#539BD4">
              <tr>
                <td height="25" background="../images/hdr_bg.gif">
                  <div align="left"><img src="../images/folder_announce.gif" width="19" height="17" align="absmiddle"><span class="Estilo17">LO ULTIMO: <span class="Estilo21"><%=(Lo_Ultimo.Fields.Item("titulo").Value)%></span></span></div></td>
              </tr>
            </table></td>
          <td valign="top"><div align="right"><img src="../images/logotipo.gif" width="120" height="176" align="middle"></div></td>
        </tr>
      </table>
      <br>
      <table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="3%" height="27" background="../images/bg_cat.gif"><div align="center" class="Estilo1">
              <div align="left"><img src="../images/titular_izq.gif" width="30" height="30"></div>
          </div></td>
          <td width="94%" background="../images/bg_cat.gif" class="Estilo1"><!-- InstanceBeginEditable name="barra_titulo" -->
            <div align="center"></div>
          <!-- InstanceEndEditable --></td>
          <td width="3%" align="right" background="../images/bg_cat.gif" class="Estilo1"><div align="right"><img src="../images/titular_der.gif" width="30" height="30"></div></td>
          </tr>
        <tr><!-- InstanceBeginEditable name="cuerpo" -->
		
		 <td colspan="3" bgcolor="#FFFFFF">
		
		
		
<div align="center"> <div align="center"><br>
  <span class="Estilo29 Estilo28">El sistema de avisos le permite recibir en su correo electronico de manera <strong>automatica</strong> las novedades de la Web. Usted puede personalizar de que contenidos quiere ser informado, y en cualquier momento, modificarlos o darse de baja.</span></div>
<p align="center" class="Estilo29 Estilo28">Para <a href="#alta">darse de alta</a>, simplemente diganos su nombre o apodo y su eMail.</p>
<hr>
<table width="92%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr>
    <td height="27" background="../images/bg_cat.gif" bgcolor="#6699FF" scope="col"><div align="center"><span class="Estilo28 Estilo34"><span class="Estilo30 Estilo28 Estilo35"><strong>ENTRAR EN &quot;MIS AVISOS&quot;</strong></span></span></div></td>
  </tr>
  <tr>
    <th bgcolor="#FFFFFF" scope="col"><form action="<%=MM_LoginAction%>" method="POST" name="entrar" id="entrar">
        <label><span class="Estilo28"><strong><span class="Estilo32"><%= request.QueryString("e") %><br>
        </span> </strong></span></label>
        <table border="0" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF">
          <tr>
            <th class="Estilo17" scope="col"><span class="Estilo36">eMail</span></th>
            <th class="Estilo29" scope="col"><span class="Estilo28"><strong><strong><strong><strong><strong>
              <input name="email" type="text" id="email3">
            </strong></strong></strong></strong> </strong></span></th>
            <th class="Estilo17" scope="col"><span class="Estilo36"><strong><strong> Contrase&ntilde;a</strong></strong> </span></th>
            <th scope="col"><span class="Estilo28"><strong>
              <input name="pass" type="password" id="pass4" size="8">
            </strong></span></th>
            <th scope="col"><span class="Estilo28"><strong><strong>
              <input type="submit" name="Submit2" value="Entrar">
            </strong></strong></span></th>
          </tr>
        </table>
        <label><span class="Estilo28"><strong> <strong> </strong></strong></span></label>
    </form></th>
  </tr>
</table>
<p class="Estilo30 Estilo28"><span class="Estilo28"><a name="alta"></a></span></p>
<hr>
<table width="92%" height="355"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr>
    <td height="27" background="../images/bg_cat.gif" bgcolor="#6699FF" scope="col"><div align="center"><span class="Estilo31 Estilo35">DARSE DE ALTA </span></div></td>
  </tr>
  <tr>
    <th bgcolor="#FFFFFF" scope="col"><span class="Estilo31"><span class="Estilo32"><%= Request.QueryString("e2")%></span></span></th>
  </tr>
  <tr>
    <th bgcolor="#FFFFFF" scope="col"><form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1" class="Estilo28">
        <table  border="1" align="center" cellpadding="1" cellspacing="0">
          <tr class="Estilo17">
            <th scope="col"><div align="right" class="Estilo17">Nombre o Apodo</div></th>
            <th scope="col"><div align="center">
                <label>
                <input name="apodo" type="text" id="apodo">
                </label>
            </div></th>
          </tr>
          <tr class="Estilo17">
            <td><div align="right" class="Estilo29">eMail</div></td>
            <td><div align="center">
                <input name="email" type="text" id="email22">
            </div></td>
          </tr>
          <tr class="Estilo17">
            <td><div align="right" class="Estilo29">Contrase&ntilde;a</div></td>
            <td><div align="center">
                <input name="pass" type="password" id="pass">
            </div></td>
          </tr>
          <tr class="Estilo17">
            <td colspan="2" background="../images/bg_th.gif" bgcolor="#336699"><div align="left"><span class="Estilo27">Quiero recibir avisos de </span></div></td>
          </tr>
          <tr class="Estilo17">
            <td><div align="right"><span class="Estilo26">Nueva noticia en la Web </span></div></td>
            <td><div align="center">
                <label>
                <input name="noticias" type="checkbox" id="noticias" value="1" checked>
                </label>
            </div></td>
          </tr>
          <tr class="Estilo17">
            <td><div align="right"><span class="Estilo26">Nueva circular disponible</span></div></td>
            <td><div align="center">
                <input name="circulares" type="checkbox" id="circulares" value="1" checked>
            </div></td>
          </tr>
          <tr class="Estilo17">
            <td><div align="right"><span class="Estilo26">Cambios en la secci&oacute;n &quot;Campamentos y Acampadas&quot;</span></div></td>
            <td><div align="center">
                <input name="campamentos" type="checkbox" id="campamentos" value="1" checked>
            </div></td>
          </tr>
          <tr class="Estilo17">
            <td><div align="right"><span class="Estilo26">Informaci&oacute;n general / Comunicados importantes</span></div></td>
            <td><div align="center">
                <input name="informacion" type="checkbox" id="informacion" value="1" checked>
            </div></td>
          </tr>
          <tr class="Estilo17">
            <td colspan="2"><div align="center" class="Estilo28 Estilo29 Estilo26 Estilo37">Tenga la seguridad de que sus datos no se le revelar&aacute;n a nadie </div></td>
          </tr>
          <tr class="Estilo17">
            <td colspan="2"><div align="center">
                <input name="Submit" type="submit" onClick="MM_validateForm('apodo','','R','pass','','R');return document.MM_returnValue" value="Darse de alta">
            </div></td>
          </tr>
        </table>
        <input type="hidden" name="MM_insert" value="form1">
      </form>
        <p class="Estilo28">&nbsp;</p></th>
  </tr>
</table></td>
  
<!-- InstanceEndEditable --> </tr>
        <tr background="../images/bottom_bg.gif">
          <td height="15" colspan="3" background="../images/bottom_bg.gif"><div align="right" class="Estilo2">Arriba</div></td>
        </tr>
      </table>
      <br>
    </div>      <div align="center"></div>      </td>
  </tr>
  <tr >
    <td background="../images/admin_bg_cat.gif"  height="25"><div align="center" class="Estilo2"></div>      
    <div align="center"></div></td>
    <td width="70%"  height="25" background="../images/admin_bg_cat.gif"><div align="center"><span class="Estilo2"><strong>Todos los derechos reservados <%= year(now) %> </strong><br>
    Web creada por &Aacute;ngel Cardiel <img src="../images/email.gif" width="16" height="16" border="0" align="absmiddle"></span></div></td>
    <td  height="25" align="center" valign="baseline" background="../images/admin_bg_cat.gif"><div align="center"><script LANGUAGE="JavaScript" src="http://contadores.miarroba.com/ver.php?id=50902"></script></div></td>
  </tr>
</table>
</body>
<!-- InstanceEnd --></html>
<%
Lo_Ultimo.Close()
Set Lo_Ultimo = Nothing
%>
<%
menu.Close()
Set menu = Nothing
%>