<%@LANGUAGE="VBScript.Encode"%>
<%
	dim conn,connstr,db,dbpwd
	db="votedata.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
	conn.Open connstr
%>