<%
	dim conn
	dim connstr
	dim db
	db="dsvote.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conn.Open connstr

	function rsclose
	set rs=nothing
	end function

	function connclose
	conn.close
	set conn=nothing
	end function
%>