谁能帮我看看这段ASP代码？

[vc666]

<%
function ConnectToServer(byref Connect)
set Connect=server.CreateObject ("ADODB.Connection")
Connect.ConnectionString="filedsn=test"
Connect.open
if Connect.state=1 then
ConnectToServer=true
else
ConnectToServer=false
end if
end function
%>

<%
dim AdoCon

'建立连接
if ConnectToServer(AdoCon)=true then
Response.Write ("Succeed")
else
Response.Write ("Fail")
end if
%>

其中ConnectToServer是一个连接数据库的函数。在可是在运行时报错，为什么？

[Studio]

Connect 改成全局看看

[tony0115]

报什么错？
vbScript里可以用byref吗？
dsn..后面应该写uid=sa;pwd= 吧

[vc666]

我已经把文件DSN中的用户名和密码改正过来了，所以Connect.ConnectionString="filedsn=test"应该没有错误。
请问不能用byren，应该用什么？

[EasyASP]

<%
function ConnectToServer(byref Connect)
set Connect=server.CreateObject ("ADODB.Connection")
Connect.ConnectionString="dsn=127.0.0.1;uid=sa;pwd="
Connect.open
if Connect.state=1 then
ConnectToServer=true
else
ConnectToServer=false
end if
end function
%>

<%
dim AdoCon

'建立连接
if ConnectToServer(AdoCon)=true then
Response.Write ("Succeed")
else
Response.Write ("Fail")
end if
%>

试试

[vc666]

谢谢各位，问题我已经解决了，日后把分补上