力诺瑞特壁挂式太阳能:请帮看看这段代码有什么错误.我想用来实现找会密码功能!

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
sub get()
if request.form("lostuser")="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>请填写用户名！"

elseif request.form("pwdsafe")="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>请填写密码保护问题！"

elseif request.form("pwdanswer")="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>请填写密码保护答案！"

else
dim lostuser,pwdsafe,pwdanswer
lostuser=request("lostuser")
pwdsafe=request("pwdsafe")
pwdanswer=request("pwdanswer")
sql="select * from user where name='"&lostuser&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.close
set rs=nothing
founderr=true
errmsg=errmsg+"<br>"+"<li>没有此用户！"
elseif rs("lockuser")=1 then
founderr=true
errmsg=errmsg+"<br>"+"<li>该用户已被锁定，请与管理员联系……！"
elseif pwdsafe<>rs("pwdsafe") then
rs.close
set rs=nothing
founderr=true
errmsg=errmsg+"<br>"+"<li>密码问题错误！"
elseif pwdanswer<>rs("pwdanswer") then
rs.close
set rs=nothing
founderr=true
errmsg=errmsg+"<br>"+"<li>密码答案错误！"
else
rs("password")="jaymecn"
rs.update
Response.Write " <script> window.alert('密码找回成功！\n\n"&username&"的密码已初始化为jaymecn，请及时登录并修改密码！'); location.href='index.asp';</script>"
Response.End
rs.close
set rs=nothing
end if
if founderr=true then
Response.Write("&errmsg&")
response.end
end if
end if
end sub
%>

请说详细一点谢谢!!!