Mira, para que pueda ser más gráfico, te copio todo el codigo asp completo de esa pagina, pues puede suceder que este cometiendo algun error en otra parte y no me doy cuenta:
<%
' Función para generar passwords aleatorios
Function GenerarPassword(largo)
Dim Resultado, Caracter, Password
'Cargamos la matriz con números y letras
caracter = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
Randomize()
Do While Len(Resultado) < largo
Resultado = Resultado & Caracter(Int(36 * Rnd()))
Loop
GenerarPassword = Resultado
End Function
' Obtener un password de 8 caracteres
Password= GenerarPassword(8)
Dim nombre, apellido, fecha_nac, direccion
Dim ciudad, cod_postal, provincia, opPais
Dim telefono, email, actividad
Dim nom_usuario, password, promo
Dim correcto
Dim oConn, rs, SQL
'Recogemos el formulario
nombre=Request.Form("nom")
apellido=Request.Form("apell")
fecha_nac=Request.Form("nac")
direccion=Request.Form("direc")
ciudad=Request.Form("ciudad")
cod_post=Request.Form("cod_post")
provincia=Request.Form("prov")
pais=Request.Form("opPais")
telefono=Request.Form("telef")
email=Request.Form("email")
actividad=Request.Form("activ")
nom_usuario=Request.Form("usu")
promo=Request.Form("chkPromo")
' Creamos la conexion a la base de datos
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webspace\resadmin\misitio\misitio.com\db \datos.mdb;"
SQL="SELECT * FROM usuarios WHERE (Email='"&email&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)
if not rs.EOF then
Response.Write("<B>La dirección de E-mail ya está registrada. </B>")
Response.Write("<BR><B>Por favor, escoja otra.</B>")
else
' es vacio, así que le insertamos en la bd
SQL="INSERT INTO usuarios " & _
"(Nombre, Apellido, FechaNac, Direccion, Ciudad, CP, Provincia, Pais, Telefono, Email, Actividad, Usuario, Password, Promociones, Fecha)"
SQL=SQL & " VALUES ('"&nombre&"','"&apellido&"','"&fecha_nac&"','"&di reccion&"','"&ciudad&"','"&cod_post&"','"&provinci a&"','"&pais&"','"&telefono&"','"&email&"','"&acti vidad&"','"&nom_usuario&"','"& Password & "','"&promo&"', #" & Month(Date) & "/" & Day(Date) & "/" & Year(Date) & "#);"
oConn.Execute(SQL)
session("nombreD")=request("nombre")
Response.Write("<B>Gracias por Suscribirse "& nombre ) &"</B>"
Response.Write("<BR><BR>Su Nombre de Usuario y Password fueron enviados")
Response.Write("<BR>a la direccion de mail indicada por Ud.")
Response.Write("<BR>Ingrese los mismos para proceder a las descargas")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.misitio.com"
Mail.From = "
[email protected]"
Mail.AddAddress email
Mail.Subject = "Confirmación de Suscripción"
Mail.Body = "<HTML><BODY> Gracias por Suscribirse <b>"&request.form ("nom")&"</b><br><b>MI SITIO </b>le da la Bienvenida! <br><br> Sus datos de registración son: <br><b>Usuario:"&request.form ("usu")&"</b><br><br><br><b>MI SITIO</b><br><b>www.misitio.com</b><br><b>
[email protected]</b><br><br></BODY></HTML>"
Mail.isHTML = True
Mail.Send
end if
'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
else
'El usuario ha metido datos incorrectos
Response.Write("<B>Datos incorrectos - Por favor vuelva a intentarlo </B>")
end if
%>
Gracias por tu ayuda!!!