Microsoft VBScript 运行时错误 错误 '800a01a8' ？？？

[BlueSQu]

代码如下：
conn.asp
<%
dim objconn
Set objconn = Server.CreateObject("ADODB.Connection")'创建一个数据库链接对象objconn，方便后面调用
objconn.connectionstring="Provider=SQLOLEDB;Data Source=10.143.133.236;Initial Catalog=test;User ID=sa;Password=123!@#;" '创建一个数据库的recordset对象，方便以后调用
objconn.Open '打开数据库

%>

register.asp

<% if trim(request("ctype"))="add" then
sqlfind="select * from student where studentnumber='"&trim(request("number"))&"'"

set rsfind=conn.execute(sqlfind) ---->这里出错

if not rsfind.eof then
%>
<script language=javascript>
alert("已有此记录，请重新录入！");
</script>
<%else
sqlin="insert into student (studentname,studentpassword,sex,class,studentnumber) values('"&trim(request("student"))&"','"&trim(request("pwd"))&"','"&trim(request("sex"))&"','"&trim(request("classes"))&"','"&trim(request("number"))&"')"

set rs=conn.execute(sqlin)

%>
<script language=javascript>
alert("注册成功！");
window.navigate("login.asp");

</script>
<%end if
end if %>

是什么问题？确认数据用户、密码正确，连接字符串可用？？？

[bino]

set rsfind=conn.execute(sqlfind) ---->这里出错

这句有错误
改成和　conn.asp文件一致

set rsfind=objconn.execute(sqlfind)

别在register.asp最上面包含
<!--#include file="conn.asp"-->

[BlueSQu]

但是这样做的话，有很多页面都要改。
如果数据库密码改了我不是要改很多文件才行？

[iasky]

register.asp中要包含那个文件，要用同一个的类的实体objconn

set rsfind=objconn.execute(sqlfind)

[BlueSQu]

OK！