<%

dim cn

sub moketnoi()

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

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

cn.open strcn

end sub

sub dongketnoi()

cn.close

set cn=nothing

end sub

%>