<%
on error resume next
dim conn
set conn=server.CreateObject("adodb.connection") 
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/votes/tot_votes.asp")
if Err.Number <> 0 then
		Response.Write("<script>alert('[系统错误]\n\n数据库连接错误！请检查系统参数设置>>站点常量设置,或者conn.asp文件!');</script>")  
        Response.End
end if
sub connclose	
   conn.close
   set conn=nothing   
end sub
%>