北京爱马仕维修:Microsoft VBScript 编译器错误 错误 '800a03f6'急~~~~~~！

程序是：<%
if NOT isempty(request("LoginSubmit")) then
dim username,password
username=replace(trim(request("username")),"'","")
password=replace(trim(request("password")),"'","")
'if username="" or password="" then
' call MsgBox("对不起，登录失败，请检查您的登录名和密码","None","None")
'end if

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where username='"&username&"' and password='"&password&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if password=rs("password") then
response.Cookies(cookieName)("username")=trim(request("username"))
response.Cookies(cookieName)("vip")=rs("vip")
rs("lastvst")=now()
rs("loginnum")=rs("loginnum")+1
rs.Update
rs.Close
set rs=nothing
response.redirect "muser.asp"

else
call MsgBox("对不起，您的用户名或密码有误！","Back","None")
end if
else
call MsgBox("对不起，您的用户名或密码有误！","Back","None")
end if

end if

%>
在网页上运行的错误是：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: '[object]'

/login.asp，行17
机子是刚刚做的系统，win2000的！但是没有装VB.返回主页面后，系统提示您已经登陆。但是在用户提交登陆时，就出现以上的页面。怎么办？急~~~~~~~~~~~~~！
大哥还是不对呀！！怎么办？提交出来错误的网页，但是返回到主页面后，系统提示你已经登陆，这是怎么回事？