ASP 数据库连接 问题

看看 这的代码有有问题啊 谢谢

conn.asp


<%
dim conn
dim connstr
dim db
db="database/shujulianjie.mdb" 
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

sub CloseConn()
  conn.close
set conn=nothing
end sub  
%>


报错
无法显示网页 
试图访问的网页出现问题，无法显示。 

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。 
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80004005)
未指定的错误
/Inc/conn.asp, 第 9 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727) 

网页：
GET /index.asp 

时间：
2011年7月24日星期日, 20:01:37 


详细信息：
Microsoft 支持 
 

修改成：
Function CloseConn()
  conn.close
  set conn=nothing
End Function