<% Ingreso = Request("Ingreso") Usuario = Request("Usuario") Pass = Request("Pass") ApellidoNombre = Request("ApellidoNombre") Empresa = Request("Empresa") Email = Request("Email") If Ingreso = "Agregar" then Set Dato = CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM Mailing WHERE Usuario = '" & Usuario & "'" Dato.Open SQL,Base,1,3 If Dato.Eof Then Dato.Close SQL = "SELECT * FROM Mailing WHERE Nombre = '" & ApellidoNombre & "'" Dato.Open SQL,Base,1,3 If Dato.Eof then Dato.Close SQL = "INSERT INTO Mailing (Categoria, Nombre, Mail, Aprobado, Empresa, Usuario, Pass) VALUES ('Contacto WEB', '" & ApellidoNombre & "', '" & Email & "', -1, '" & Empresa & "', '" & Usuario & "', '" & Pass & "')" Base.execute SQL 'response.Redirect("http://www.psicologiamistica.com.ar/richard_moss/0-intro.html" ) Ingreso = "" Usuario = "" Pass = "" ApellidoNombre = "" Empresa = "" Email = "" %> <% Estado="OK" Else %> <% Dato.Close Estado="NO" End If Else %> <% Dato.Close Estado="NO" End If End If %> Fundación Harmonía Humanitas
 
Gracias por registrarse.

Registro

   
Usuario
Contraseña
Apellido y Nombre
Empresa
e-Mail
   
 
   






   
<% if Estado="OK" then %> <% End If %>