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'><!-- a {font-family: Verdana,Arial, Helvetica, sans-serif; font-size: 8px; font-style: normal;font-weight: lighter;color: #660066; font-variant: normal; text-decoration: underline;}--></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
%>