<!--include file="_db.asp"-->
<%
const cDBAnket ="/site/scripts/enquetes/enquetes.mdb"
	EnqueteConn = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
	     "Persist Security Info=False;" &_
	     "Data Source=" & Server.MapPath(cDBAnket)
		 
set conn = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.Recordset")
	conn.open EnqueteConn
	set rs.activeConnection = conn
	rs.CursorType = adOpenStatic

	sSQL = "SELECT perguntaID FROM perguntas WHERE ativo = true and (startdate >= date() and finishdate <=date())"
	rs.Open sSQL, , , adCmdTable
	
	numeroEnquete = rs("perguntaid")
	
	rs.close
	
	response.redirect "enquete-votar.asp?ID="&numeroEnquete
	%>