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

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

缺少语句

F:\冰点工作室\USER\../CONN.asp，行 1

option explicit
^
====================================
conn.asp
<%option explicit
Dim conn,connstr,db
db="/yymzzl/db1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
====================================
调用CONN.ASP的页面

<!--#include file="CONN.asp"-->
<!--#include file="title_top.asp"-->
<%
If request("txtuser")="" And request("oldpwd")="" And request("newpwd")="" And request("renewpwd")=""Then
%>
<tr>
<td width="50%" align=center colspan=2>对不起，请您输入相关信息</TD>

</tr>
<!--#include file="editpwd.asp"-->

<%
ElseIf request("newpwd")<>request("renewpwd") Then

%>
<tr>
<td width="50%" align=center colspan=2>对不起，新密码与确认密码不一致</TD>
</tr>
<!--#include file="editpwd.asp"-->
<%Else
Dim rsUser,sql


set rsUser = Server.CreateObject("ADODB.Recordset")
sql="select * from yymzzl where UserID='"&session("UserID")&"'and UserPwd='"&request("nexpwd")&"'"
rsUser("UserPwd")=request("newpwd")
rsUser.update
%>
<tr>
<td width="50%" align=center colspan=2>修改成功</TD>
</tr>
<% Else %>
<tr>
<td width="50%" align=center colspan=2>对不起，您的旧密码输入不正确</TD>
</tr>
<%End If
rsUser.close

End If

Set rsUser=nothing%>
<!-- #include file="cnClose.asp" -->


为什么会这样? 以前也遇到过 但没有这次那么顽固的~~谢谢了~~