registro asp

pott · #1 (**permalink**) 13/05/2004, 05:38

Hola a todos!!!!

Os planteo mi problema, quiero que al registrarse un usuario al mismo tiempo que meto los datos en la base de datos me mande un email al usuario para confirmar su registro.
He estado probando pero solo me envia los email no me introduce los datos en la base de datos.
Si alguien quiere que le envie el codigo para saber que me falla o me puede decir que forma tento de hacerlo lo abracederia.

Chao a todos y a pasar un buen dia.

juanpastor · #2 (**permalink**) 13/05/2004, 06:02

Hola,
mándalo y si te puedo ayudar en algo, te lo digo.

Juan

pott · #3 (**permalink**) 14/05/2004, 02:25

Aqui esta mi codigo

'recogemos los datos del formulario
Dim nombre, apellidos, pais, login, password, mail
Dim correcto
Dim conexion, registros, SQL

'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellido")
mail=Request.Form("pais")
pais=Request.Form("mail")
password=Request.Form("password")
login=Request.Form("login")

correcto=True
'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellidos="" then correcto=False end if
if mail="" then correcto=False end if
if pais="" then correcto=False end if
if login="" then correcto=False end if
if password="" then correcto=False end if

if correcto then
'Solo si todo está bien, comprobamos con la bd

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "accessDSN"
SQL="SELECT * FROM registro WHERE (Nom_usuario='"&login&"');"

'Ejecutamos la consulta
set registros=conexion.Execute(SQL)

'si no nos devuelve vacío es que el login ya está en uso
if not registros.EOF then
Response.Write("<font size=""0"" face=""Verdana"" color=""#8A2727""> El nombre de usuario ya está siendo utilizado. </font>")
Response.Write("<font size=""0"" face=""Verdana"" color=""#8A2727"">Por favor, escoja otro.</font>")
else
' es vacio, así que le insertamos en la bd
SQL="insert into registro (Nom_usuario, Contrasena, Nombre, Apellido, Email, Pais ) values ('"
SQL = SQL & Request.Form("login") & "', '"
SQL = SQL & Request.Form("password") & "', '"
SQL = SQL & Request.Form("nombre") & "', '"
SQL = SQL & Request.Form("apellido") & "', '"
SQL = SQL & Request.Form("mail") & "', '"
SQL = SQL & Request.Form("pais") & "')"

conexion.Execute(SQL)
Response.Write( "<font size=""0"" face=""Verdana"" color=""#8A2727""> Bienvenid@ , "& nombre& "</font>")
end if
conexion.Close
Set conexion=Nothing
%>

<%If Err = 0 Then
texto="<HTML><HEAD><TITLE>Envio informativo</TITLE>"&chr(13)&chr(10)
texto=texto&"<style type='text/css'></style>"&chr(13)&chr(10)
texto=texto&"</HEAD><BODY>"&chr(13)&chr(10)
texto=texto&"<table><tr><td>Estimado amig@ <b>" &cstr(request.Form("nombre"))& "</b> , gracias por haberte registrado en nuestra pagina, te recordamos que para poder tener acceso a ella tendras que entrar con tu login y password <br>" &chr(13)&chr(10)
texto=texto& ""&chr(13)&chr(10)
texto=texto&"<tr><td> Tu datos son los siguientes:<br> Login:" &cstr(request.Form("login")) &chr(13)&chr(10)
texto=texto&"</td></tr><tr><td> Password:" &cstr(request.Form("password")) &chr(13)&chr(10)
texto=texto& ""&chr(13)&chr(10)
texto=texto&"</td></tr></table>" &cstr(request.Form("comentario")) &chr(13)&chr(10)
texto=texto&"</body></html>"&chr(13)&chr(10)

'Especificamos el servidor SMPT del correo y creamos el objeto
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.cesaraugusta.com"
Mail.From = "[email protected]"'emisor del mesaje
Mail.FromName = "[email protected]"' nombre del emisor
Mail.AddAddress cstr(request.form("mail")) 'a quien le mandas el correo
Mail.Subject = "Envio informativo de Alicia Protocolo "
Mail.IsHTML = True
Mail.Body=texto
strErr = ""
bSuccess = False
On Error Resume Next ' por si hay errores
Mail.Send ' send message

Else
Response.Write "No se envio el email"
End If
else
Response.Write ("Datos incorrectos")
End If
%>

juanpastor · #4 (**permalink**) 14/05/2004, 02:45

Hola,

parece que no hay errores de sintaxis. Lo que sí haría es que si no lo inserta te lo muestre con el manejo de errores.

Anadiría esto después de ejerctar el SQL del insert:

****************************
on error resume next

if err.number<>0 then
Response.write("Ha habido un error")
Response.write("<br><b>Descripción:</b><br>" & Err.description & "<br></div></font>")
else
Response.write("Todo OK")
end if

******************************
Mira a ver si sale algún error.
Salyudos,

Juan