<%
dim conn   
dim connstr
on error resume next
connstr="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE='"&server.mappath("dbase/vote.mdb")&"'"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

sub closedb()
 conn.close
 set conn=nothing
end sub

sub closers()
 rs.close
 set rs=nothing
end sub
%>