一段找回用户密码的代码，请高手们看看问题出在哪？

.:: 用户自助申诉-->密码找回

<%if request("ok")<>"ok" then%>

您可以由此找回您的密码：

亲爱的用户，如果您的密码遗失或者被盗， 请在下面的表单中输入您的帐号， 系统会自动将密码发送到您的信箱。 您的帐号：

<%else%>

您可以由此找回您的密码：

亲爱的用户，您的密码已经发送到您注册时候填写的信箱中， 请注意查看收！！^&^ 希望您以后可以保护好您的密码。 如有其他问题请至信aof@163.com

<%end if%>


<%
if request("action")="" then response.end
'取的丢失密码帐户的EMAIL地址
set rs=server.createobject("adodb.recordset")
username=request("username")
Username=replace(Username,"'","")
sql="select * from user where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.redirect "error.asp?error=008"
end if


'设置发信人
frommail="aof@163.com"
'设置邮件主题
mailsubject="您在www.*****.com的密码！！！"
'设置邮件内容
mailbody="您的密码是 " & rs("password")
'判断对谁发信
tomail=rs("email")
'发
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject
objCDOMail.Body = mailbody
objCDOMail.Send
Set objCDOMail = Nothing
response.redirect "findpassword.asp?ok=ok"
%>

你的程序什么地方不起作用？
是发不了EMAIL还是？

是发不了EMAIL。