以下程序错在哪？在线等。。。100分

[99_mei]

<%
user=trim(request.form("user"))
password=trim(Request.Form("password"))
if user="" then%>
<script language=vbscript>
MsgBox "错误：请输入用户帐号！"
location.href = "javascript:history.back()"
</script>
<%
end if
if password="" then%><script language=vbscript>
MsgBox "错误：请输入用户密码！"
location.href = "javascript:history.back()"
</script> <%
end if%>
<!-- #include file="conn.asp" -->
<% rs.Open "Select * From hd where user= '" &user&"'", conn, 3,3%>
<%if rs.bof then %> <script language=vbscript>
MsgBox "错误：此帐号不存在！"
location.href = "javascript:history.back()"
</script><%
elseif password<>rs("password") then%><script language=vbscript>
MsgBox "错误：您的密码不正确！"
location.href = "javascript:history.back()"
</script>
<%else if session("loginid")="true" then%>
<script language=vbscript>
MsgBox "正确！"
location.href = "javascript:history.back()"
</script>
<%
rs.close
set rs=nothing%>


Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

行33