<%
dim cjconn
dim cjconnstr
dim cdb
cdb="data/koomv#bank.asp"
'On Error Resume Next
set cjconn=server.createobject("adodb.connection")
cjconnstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(cdb)
cjconn.open cjconnstr

function closecdb()
cjconn.close
set cjconn=nothing
end function
%>