asp中Function 调用

rs 对象定义在Con函数中，在函数外部又用rs.open,当然“缺少对象Rs”啦。
应该是：
Function Con(Str)
IF Str="" Then
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db/acwfhl1.mdb")
Else
IF Str="../" Then
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("../db/acwfhl1.mdb")
Else
conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(""&Str&"")
End IF
End IF
Call Con("../")
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select ID From Life"
Rs.Open Sql,Conn,1,1
..........

你的conn都没有Open,怎么会有效呢？