<%@ Language=VBScript %> Partido de los valientes - Alta de Simpatizante <% sub anhadeAFL Usuario=left(replace(request("Usuario"),"'","`"),10) Pasword=left(replace(request("Password"),"'","`"),10) Nombre=left(replace(request("Nombre"),"'","`"),50) Apellidos=left(replace(request("Apellidos"),"'","`"),50) NIF=left(replace(request("Nif"),"'","`"),10) DIR=left(replace(request("Dir"),"'","`"),100) CP=left(replace(request("Cp"),"'","`"),5) POB=left(replace(request("Localidad"),"'","`"),50) Provincia=left(replace(request("Provincia"),"'","`"),25) Fnac=formatdatetime(request("F_Nacim"),2) EMail=left(replace(request("EMail"),"'","`"),50) Sexo=strSexo Pago=strPago strSQL="Insert into Altas_Pend (Usuario,Password,Apellidos,Nombre,Dir,Localidad,Cp,EMail,Provincia,F_Nacim,Nif,Sexo,Pago) VALUES('" & Usuario & "','" strSQL=strSQL & Pasword & "','" & Apellidos & "','" & Nombre & "','" & DIR & "','" & POB & "','" & CP & "','" & EMail & "','" & Provincia & "', '" & fnac strSQL=strSQL & "','" & NIF & "','" & Sexo & "','" & Pago & "');" set recordset=Server.CreateObject("ADODB.Recordset") recordset.Open strSQL,application("ConnString"),adopenstatic end sub UserP=left(replace(request("Usuario"),"'","`"),10) PassP=left(replace(request("Password"),"'","`"),10) Cp_Prov=left(replace(request("Cp"),"'","`"),2) strSexo=Session("sexo") strPago=Session("Pago") if request("sexo")="Hombre" then strSexo="Hombre" elseif request("sexo")="Mujer" then strSexo="Mujer" end if Session("sexo")=strSexo if request("pago")="S" then strPago="S" elseif request("pago")="N" then strPago="N" end if Session("Pago")=strPago function isError error=0 if request("Usuario")="" then error=1 end if if request("Password")="" then error=clng(error)+2 end if if request("Nombre")="" then error=clng(error)+4 end if if request("NIF")="" then error=clng(error)+8 end if if request("Apellidos")="" then error=clng(error)+16 end if if request("DIR")="" then error=clng(error)+32 end if if request("CP")="" then error=clng(error)+64 end if if request("Localidad")="" then error=clng(error)+128 end if if request("Provincia")="" then error=clng(error)+256 end if if not isDate(request("F_nacim")) then error=clng(error)+512 end if if request("EMAIL")="" then error=clng(error)+1024 end if if request("Provincia")<>Cp_Prov then error=clng(error)+2048 end if strsql="SELECT * FROM Simpatiza WHERE (Usuario='"& UserP & "') ;" set recordset=server.createobject("ADODB.Recordset") recordset.open strsql, application("ConnString"), adopenstatic if recordset.BOF and recordset.EOF then '## Do Nothing else error=clng(error)+4096 end if recordset.close set recordset = nothing iserror=error end function Set Conexion=server.CreateObject("ADODB.Connection") conexion.ConnectionString=Application("ConnString") conexion.CursorLocation=3 conexion.Open ,,IUSR_SERVER set recordset=createobject("ADODB.Recordset") error=0 if request("Action")="" then error=0 else error=isError if error=0 then anhadeAFL response.redirect "/alta.asp" end if end if %>

 

Lo siento; pero ya no registro valientes.

El registro se me llenó de telarañas.

Ya nadie quiere ser valiente, ha pasado de moda, como el sombrero de copa.

Exigía mucho, exigía ser un auténtico caballero andante:

Valiente, generoso, discreto y enamorado de su dama, real o imaginaria.

Los que queráis enviarme un saluda o echarme una bronca suave, que no estoy para muchos trotes, podéis enviarme un simple emilio

REGISTRO PREVIO QUE YA NO FUNCIONA

Todos los campos son obligatorios
USUARIO:
 " size="10" maxlength="10"> Máximo 10 caracteres
CONTRASEÑA:
" size="10" maxlength="10"> Máximo 10 caracteres
NOMBRE :
 " size="50" maxlength="50">
APELLIDOS:
" size="50" maxlength="50">
DIR. POSTAL:
 " size="50" maxlength="50">
POBLACIÓN
 " size="50" maxlength="50">
CÓD. POSTAL:
 " size="10" maxlength="5">
PROVINCIA:
 <% strsql="SELECT * FROM Provincias ORDER BY Provincia;" Set Conexion=server.CreateObject("ADODB.Connection") conexion.ConnectionString=Application("ConnString") conexion.CursorLocation=3 conexion.Open ,,IUSR_SERVER set recordset=createobject("ADODB.Recordset") recordset.ActiveConnection=conexion recordset.Open strsql,conexion %>
FECHA NACIMIENTO:

" size="10" maxlength="10" > Formato dd/mm/aaaa
DNI:
" size="10" maxlength="10">
HOMBRE
CHECKED<%end if%>>
 
 
MUJER
CHECKED<%end if%>>
 
¿Contribuiría económicamente si se lo solicitan?
Sí CHECKED<%end if%>> --No CHECKED<%end if%>>
   
Indique una dirección de correo válida y en uso, ya que de lo contrario no podrá completar el siguiente paso
E-MAIL: " size="50" maxlength="50">
   
 

 

 

Advertencia de Privacidad

Los datos de carácter personal que se faciliten por correo electrónico mediante el siguiente formulario quedarán registrados en un fichero, inscrito en la Agencia Española de Protección de Datos, como mandan los cánones, por resolución del 26.05.05, código de inscripción 2051460655, con la finalidad de identificar a las personas que libremente se ofrezcan para formar parte de la comunidad de los valientes, para la interacción de propuestas, contestar a las consultas y obtener datos estadísticos de las mismas. Por ello pueden ejercitar los derechos de acceso, rectificación, cancelación y oposición bien desde los enlaces al efecto o bien desde CONTACTA recibiendo un e-mail de confirmación.

Los datos aquí recogidos no serán transferidos ni cedidos a terceros para nada.