这段代码：

<%
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="ceo@home9.net"
'设置邮件主题
mailsubject="您在久久家园的密码！"
'设置邮件内容
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"
%>

提示：
错误类型：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/shop/findpassword.asp, 第 75 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

网页：
POST 50 ??? /shop/findpassword.asp

POST Data:
username=missccc&Submit3=%C8%B7+%B6%A8&action=find