
<%
dim conn
dim connstr,datafile
datafile="../db/bear.asp"
'on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(datafile)
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

sql5="select * from config"
set rs5=conn.execute(sql5)

Sub rsclose()
    rs.close()
	set rs=nothing
End Sub
Sub ConnClose()
    conn.close()
	set conn=nothing
End Sub
%>