<%@ Language=VBScript Enablesessionstate=True%>
<%
dim percorso
Dim Conta, Conta1
dim TotVoti
dim IDConsultazione
dim VotiListe()
'VotiListe(n,0)=NomeFile/NomeCandidato
'VotiListe(n,1)=Voti
'VotiListe(n,2)=Percentuale
'VotiListe(n,3)=Nome
dim VotiListeOrdinate()
Dim Riga
dim ValoreRiferimento
' Variabile da valorizzare con l'ID_Consultazione di riferimento
IDConsultazione=3
'Inizializzazione Totale Voti
TotVoti=0
'Determinazione percorso cartella remota
percorso=server.MapPath("Elezioni2009")
percorso=left(percorso,(len(percorso)-13))
'Apertura connessione DB
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & percorso & "\Dati.mdb"
'Riempimento del Vettore DatiSezioni
'Apertura Recordset Affluenze
Set objRS = Server.Createobject("ADODB.Recordset")
'Partiti per le Europee
'Coalizioni per le Provinciali
strQuery = "SELECT * FROM Partiti WHERE ID_Consultazione=" & cstr(IDConsultazione) & " ORDER BY NumeroLista"
objRS.Open strQuery, objConn, 1,2
objRS.movelast
objRS.movefirst
'Ridimensionamento matrice VotiListe
redim VotiListe(objRS.recordcount-1,3)
redim VotiListeOrdinate(objRS.recordcount-1,3)
' Azzeramento Matrice VotiListe
for conta=0 to objRS.recordcount-1
for conta1 =0 to 2
VotiListe(conta,conta1)=0
next
next
'Conteggio dei voti e calcolo del totale
for conta=0 to objRS.recordcount -1
'Immagine per Europee
'Presidente per le Provinciali
VotiListe(conta,0)=objRS("Immagine")
' VotiListe(conta,3)=objRS("Nome") 'Solo per le Europee
Set objRS1 = Server.Createobject("ADODB.Recordset")
strQuery = "SELECT Voti.* FROM Voti WHERE ID_Partito=" & objRS("ID_Partito")
objRS1.Open strQuery, objConn, 1,2
if objRS1.recordcount>0 then
objRS1.movelast
objRS1.movefirst
for conta1=0 to objRS1.recordcount -1
VotiListe(conta,1)=VotiListe(conta,1)+clng(objRS1("Voti"))
TotVoti=TotVoti+clng(objRS1("Voti"))
objRS1.movenext
next
end if
objRS1.Close
'Per le Provinciali, aggiungere i voti del solo candidato Presidente
' strQuery = "SELECT Voti_Presidente.* FROM Voti_Presidente WHERE Voti_Presidente.ID_Coalizione=" & objRS("ID_Coalizione")
' objRS1.Open strQuery, objConn, 1,2
' if objRS1.recordcount>0 then
' objRS1.movelast
' objRS1.movefirst
' for conta1=0 to objRS1.recordcount -1
' VotiListe(conta,1)=VotiListe(conta,1)+clng(objRS1("Voti"))
' TotVoti=TotVoti+clng(objRS1("Voti"))
' objRS1.movenext
' next
' end if
' objRS1.Close
objRS.movenext
next
'Riordino Liste
for Conta1=0 to ubound(VotiListe,1)
Riga=-1
ValoreRiferimento=-1
for conta=0 to ubound(VotiListe,1)
if VotiListe(Conta,1)>ValoreRiferimento then
ValoreRiferimento=VotiListe(Conta,1)
Riga=Conta
end if
next
VotiListeOrdinate(Conta1,0)=VotiListe(Riga,0)
VotiListeOrdinate(Conta1,1)=VotiListe(Riga,1)
VotiListeOrdinate(Conta1,2)=VotiListe(Riga,2)
VotiListeOrdinate(Conta1,3)=VotiListe(Riga,3)
VotiListe(Riga,1)=-1
next
'Calcolo delle percentuali
for conta=0 to objRS.recordcount -1
if totvoti>0 then
VotiListeOrdinate(conta,2)=round(VotiListeOrdinate(conta,1)/TotVoti*100,2)
else
VotiListeOrdinate(conta,2)=0
end if
next
Comune di Alassio - Referendum 2009 (Quesito 1) - Riepilogo
