函数调用为何类型不匹配？

[netcome]

代码；


//order_verify.asp
<!--include file="OpenADO.asp"-->
<%
dim dset
set dset=GetRecordset("order","product")

%>



//OpenADO.asp

<%


dim conn
function GetRecordset(FileName,TableName)
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=CK;UID=sa;PWD=;DATABASE="&FileName&";"
conn.open DSNtemp
Set GetRecordset=Server.CreateObject("AdODb.Recordset")
GetRecordset.Open TableName,conn,1,_
3,&H0002
end function

%>



错误是：

Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'GetRecordset'
/ck/order_verify.asp, 第 31 行


为什么呢？？？？？？？？？？？？？？？？/

[bladeinside]

Set dset=Server.CreateObject("AdODb.Recordset")

[netcome]

不行啊，还是同样的错误

[fenlin]

Set rs=Server.CreateObject("AdODb.Recordset")
rs.Open TableName,conn,1,3
GetRecordset=rs

[超级大笨狼]

这样写不好。
对象不要放局部变量里面。
用全局对象，然后用过程来打开比较好。

[骑着蚂蚁闯红灯]

Microsoft VBScript 运行时错误 (0x800A000D) --> 错误引用rs变量(rs对像已关闭或未定义)
Microsoft VBScript 运行时错误 (0x800A01C2) --> vbscript脚本错误(vbscript语句出错)
Microsoft VBScript 运行时错误 (0x800A0006) --> vbscript脚本错误(溢出错误)
Microsoft VBScript 编译器错误 (0x800A040E) --> 缺少loop
Microsoft VBScript 编译器错误 (0x800A03EA) --> 缺少if或end if
Microsoft VBScript 编译器错误 (0x800A03EE) -->　语句未结束(缺少")")
Microsoft VBScript 编译器错误 (0x800A03F6) --> if语句出错(缺少end if)
Microsoft VBScript 运行时错误 (0x800A005B) --> 缺少set
Microsoft VBScript 运行时错误 (0x800A0005) --> 变量未定义
Microsoft VBScript 编译器错误 (0x800A03F9) --> if语句缺少then
Microsoft VBScript 编译器错误 (0x800A0411) --> dim语句定义错误
Microsoft VBScript 编译器错误 (0x800A0408) --> sql语句错误（?????????????????)

[骑着蚂蚁闯红灯]

Microsoft VBScript 运行时错误 (0x800A000D) --> 错误引用rs变量(rs对像已关闭或未定义Microsoft VBScript 运行时错误 (0x800A000D) --> 错误引用rs变量(rs对像已关闭或未定义


是这个问题吧。。。仔细的看一遍。。有没有搞错~~~

[netcome]

不明白啊，我是个新手，具体些，好吗？？？

[SDLin]

if err then
response.write err.description
response.end
end if

打印出错误，方便，直观~