<%
if request("Listo") = "S" then
dsn = "Driver={Mysql}; Server=192.168.0.59;" &_
"Database=clientes_l;" &_
"UID=fmc;" &_
"PWD=fmc25"
Set db = Server.CreateObject("ADODB.Recordset")
query = "SELECT * From i_user where Email = '" & request("email") & "'"
db.open query,dsn,1
Set Mail = Server.CreateObject ("CDONTS.Newmail")
Mail.bodyFormat = 0
Mail.From = "info@ingles360.com.ar"
Mail.To = request("email")
Mail.Subject = "Pass recovery Ingles360º"
strM = strM & "
Ingles 360º Pass Recovery
Estos son los datos de tu registro en Ingles 360º
"
strM = strM & "
Nombre " & db("Nombre")
strM = strM & "
Email " & db("Email")
strM = strM & "
User " & db("User")
strM = strM & "
Pass " & db("Pass")
strM = strM & "
Gracias! Ingles 360"
'**************************************************************
Mail.Body = strM
'Envio del mail....
Mail.Send
'Limpiamos el objeto.
Set Mail = Nothing
end if
%>
Access