<body><b>Send password of Email confirm system</b>
<form method=post action=default.asp>
Name: <input type=text name=name>
E-mail: <input type=text name=email><br>
Confirm: <input type=checkbox name=toconfirm value=yes>
<input type=submit>
</form>
<%
dim name, email
name = request.form("name")
email = request.form("email")
toconfirm = request.form("toconfirm")
if toconfirm = "yes" then
if len(name) > 2 and len(email) > 5 then
randomize
session("passwd") = int(rnd*99999)+1
set mail = server.createObject("Persits.MailSender")
mail.Host = "mail.loxinfo.co.th"
mail.From = "testemailconfirm@thaiabc.com"
mail.AddAddress email
mail.Subject = "Registration bot from perlphpasp.com"
bodymsg = "Your registration PASSWD is: " & session("passwd") & chr(10)
bodymsg = bodymsg + "Have a good day"
mail.Body = bodymsg
On Error Resume Next
mail.Send
if Err <> 0 then
ErrMsg = "เกิดข้อผิดพลาด : " & Err.Description
else
ErrMsg = "ส่งรหัสผ่านไปให้ท่าน ทาง e-mail<BR>"
ErrMsg = ErrMsg + "ให้กลับมากรอกรหัสผ่านด้านล่าง เพื่อตรวจสอบ"
end If
set mail = nothing
response.write(ErrMsg)
else
response.write("ส่ง password ให้ท่านไม่สำเร็จ .. มีข้อผิดพลาด")
end if
end if
%>
<hr>
<b>Test password here:<b><br>
<form method=post action=checkpass.asp>
Password: <input type=text name=passwd>
<input type=submit>
</form><a href=sendmail.asp>sendmail.asp</a>
</body>