<%
opc = Cint(request.form("opc"))
if opc=1 then
Dim path
'guardamos en la variable path lo que devuelve la función
path = Server.MapPath("./")
Dim Connex
'Creamos el objeto de conexion ahora...
Set Connex = Server.CreateObject ("ADODB.Connection")
Connex.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&path&"\data\veiga.mdb;" 'Danos la intruccion de que se agregue un registro a la base de datos
'Abrmios el RecordSet (accedemos a los datos de la BD).
Set oRs = Server.CreateObject ("ADODB.RecordSet")
'entre " " va el nombre de la tabla, y luego de la "," se indica la BD que contiene esa tabla.
'El número que le sigue, el "1", es la forma de abrir la tabla.
if request.form("movil") = "" then
movil=0
else
movil=request.form("movil")
end if
if request.form("fijo") = "" then
fijo=0
else
fijo=request.form("fijo")
end if
if request.form("edad") = "" then
edad=0
else
edad=request.form("edad")
end if
if request.form("cp") = "" then
cp=0
else
cp=request.form("cp")
end if
if request.form("all") = "" then
all=0
else
all=request.form("all")
end if
Set rs = Server.CreateObject ("ADODB.RecordSet")
'Set an active connection to the Connection object
rs.Open "Usuarios", Connex, 2,2
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT count(*) as total FROM Usuarios WHERE web= 'Pippermint' AND PK_email='" & request.form("email") & "'"
rs.open SQL,Connex
if rs("total") = 0 then
oRs.Open "Usuarios", Connex, 2,2
oRs.Addnew
'Llenamos los campos de la base de datos con los valores de las variables
oRS.Fields("PK_email") = request.form("email")
oRS.Fields("Password") = request.form("pass")
oRS.Fields("Nombre") = request.form("nombre")
oRS.Fields("Apellidos") = request.form("apellidos")
oRS.Fields("Direccion") = request.form("direccion")
oRS.Fields("Poblacion") = request.form("poblacion")
oRS.Fields("CP") = cp
oRS.Fields("Edad") = edad
oRS.Fields("Fijo") = fijo
oRS.Fields("Telefono") = movil
oRS.Fields("web") = "Pippermint"
oRS.Fields("news") = all
'Guardamos los cambios
oRS.Update
'Cerramos la conexion
oRS.Close
'Liberamos los recursos para que se pueda volver a usar inmediatamente
Set oRS = Nothing
nombre = request.form("nombre")
apellidos = request.form("apellidos")
email = request.form("email")
pass = request.form("pass")
movil = request.form("movil")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.pippermint.com"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From = "web@pippermint.com"
'Mail.FromName = "Departamento de Ventas" ' Opcional
Mail.AddAddress email
'Mail.AddCC "viajes@agencia.com" ' El nombre es opcional
Mail.Subject = "Registro desde www.pippermint.com"
Mail.Body = Mail.Body & "Ha sido registrado correctamente en www.pippermint.com, estos son sus datos: "
Mail.Body = Mail.Body & "Nombre: " & nombre & " " & apellidos & " "
Mail.Body = Mail.Body & "Password: " & pass & " "
Mail.Body = Mail.Body & "Email: " & email & " "
Mail.Body = Mail.Body & "Dirección: " & request.form("direccion") & " "
Mail.Body = Mail.Body & "Población: " & request.form("poblacion") & " "
Mail.Body = Mail.Body & "Codigo Postal: " & request.form("cp") & " "
Mail.Body = Mail.Body & "Edad: " & request.form("edad") & " "
Mail.Body = Mail.Body & "Fijo: " & request.form("fijo") & " "
Mail.Body = Mail.Body & "Movil: " & movil & " "
Mail.Body = Mail.Body & "Recuerda el password que has introducido porque en un futuro lo necesitarás. Próximamente comenzarás a recibir nuestras ofertas y promociones en tu correo "
Mail.IsHTML = True
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
else
%>
<%
end if
end if
%>
Pippermint
Regístrate ahora para recibir todas nuestras ofertas y promociones
<%if opc=1 then%>
Tus datos se han enviado correctamente, próximamente comenzarás a recibir información sobre este local. Gracias.
<%else%>
Regístrate ahora y te informaremos de nuestras promociones y eventos sobre Pippermint
