grabar y enviar correo

[TurKa]

Mira, aquí te doy el código completo que yo utilizaba hasta hace poco en mi sitio web.

Este ejemplo, recogía la información que un usuario ingresaba en un formulario para registrarse en el sitio, la insertaba en la base de datos y al mismo tiempo le envía un correo electrónico, solicitando su confirmación de alta como usuario.

Aquí va el código. Se necesitas ayuda, avisa

Código PHP:

  <%
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
%>
<!-- Generador de password-->
<%
Function generadordeclaves(longituddeclave)
Dim numerodecaracteres 
Dim salida
Dim char_array
char_array = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", _
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
"K", "L", "M", "N", "P", "Q", "R", "S", "T", _
"U", "V", "W", "X", "Y", "Z")
 
 
Randomize()
 
Do While Len(salida) < longituddeclave
salida = salida & char_array(Int(36 * Rnd()))
Loop
 
generadordeclaves = salida
End Function
 
numerodecaracteres=6
%>
 
<!-- agrega usuario a la DB -->
<%Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/mdb-database/public/cybermuzikos/comunav.mdb"))
set rs=createobject("ADODB.Recordset")
 
rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic 
Destino=Request.Form("correo")
usuario=Request.form("usuario")
ip=request.form("ip")
registro=generadordeclaves(numerodecaracteres)
 
rs.open "usuarios",conn
rs.addnew
rs("usuario")=usuario
rs("password")=registro
rs("email")=Destino
rs("ip")=ip
rs.update
rs.close
%>
 
 
<!-- envia e-mail -->
<%
Set Mail = Server.CreateObject ("CDONTS.Newmail")
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mensaje = "<style> p { margin-top: 0; margin-bottom: 0; } </style>"
Mensaje = Mensaje & "<p><b><font face='Tahoma' size='5'>Comuna Virtual® </font></b></p>"
Mensaje = Mensaje & "<p align='left'><b><font face='Arial' size='2'><i>La Comunidad Virtual de "
Mensaje = Mensaje & "CybermúzikosFree!</i></font></b></p>"
Mensaje = Mensaje & "<p align='left'><font face='MS Sans Serif' size='1'>"
Mensaje = Mensaje & "<a href='http://www.hazteunsitio.com/public/cybermuzikos'>"
Mensaje = Mensaje & "http://www.hazteunsitio.com/public/cybermuzikos</a> </font></p><hr>"
Mensaje = Mensaje & "<p align='left'><font face='MS Sans Serif' size='1'>Estimad@ <b>"&usuario
Mensaje = Mensaje & "</b>:</font></p>"
Mensaje = Mensaje & "<p align='left'><font face='MS Sans Serif' size='1'>Para activar tu cuenta en la"
Mensaje = Mensaje & "<b> Comuna Virtual</b> de <b><a href='http://www.cybermuzikos.com.ar'>"
Mensaje = Mensaje & "CybermúzikosFree!</a> </b>debes ingresar a la página principal desde </font></p>"
Mensaje = Mensaje & "<p align='left'><font face='MS Sans Serif' size='1'>"
Mensaje = Mensaje & "<a href='http://www.hazteunsitio.com/public/cybermuzikos/default.asp'>"
Mensaje = Mensaje & "http://www.hazteunsitio.com/public/cybermuzikos/default.asp</a> e introducir los "
Mensaje = Mensaje & "siguientes datos:</font></p><blockquote>"
Mensaje = Mensaje & "<p align='left'><font face='MS Sans Serif' size='1'>Usuario: <b>"&usuario
Mensaje = Mensaje & "</b></font></p><p align='left'><font face='MS Sans Serif' size='1'>Contraseña: <b>"&registro
Mensaje = Mensaje & "</b></font></p></blockquote>"
Mensaje = Mensaje & "<p align='justify'><font face='MS Sans Serif' size='1'>Desde allí, podrás "
Mensaje = Mensaje & "modificar tu contraseña y editar tu perfil, además de enviar y descargar "
Mensaje = Mensaje & "archivos, realizar búsquedas por título y muchas opciones más.</font></p>"
Mensaje = Mensaje & "<p align='justify'>&nbsp;</p>"
Mensaje = Mensaje & "<p align='justify'><b><font face='MS Sans Serif' size='1'>Gracias por estar con "
Mensaje = Mensaje & "nosotros!</font></b></p>"
Mensaje = Mensaje & "<p align='justify'>_____________</p>"
Mensaje = Mensaje & "<p align='justify'><font face='MS Sans Serif' size='1'>Recibe un Cordial Saludo,</font></p>"
Mensaje = Mensaje & "<p align='justify'><font face='MS Sans Serif' size='1'>El Equipo de Comuna "
Mensaje = Mensaje & "Virtual</font><font face='MS Sans Serif' size='2'>®</font></p>"
 
Mail.From = "CybermúzikosFree!_Argentina<[email protected]>"
Mail.To = Destino
Mail.Subject = "Comuna Virtual - Clave de Registro para "&usuario
Mail.Body = Mensaje
 
Mail.Send
Set Mail = Nothing
%> 
   

y aquí entraba el código HTML informándole que se le había enviado un e-mail a su casilla de correo