<%

dim cn

sub opencn()

set cn=server.CreateObject("adodb.connection")

strcn="Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & server.MapPath("vetau.mdb")

cn.open strcn

end sub

sub closecn()

cn.close

set cn=nothing

end sub

%>