<% Set Conn = Server.CreateObject("ADODB.Connection") Set RSElezioni = Server.CreateObject ("ADODB.RecordSet") Conn.Open "dsn=risult_refe2006" Set RSdataora = Server.CreateObject ("ADODB.RecordSet") RSdataora.ActiveConnection = Conn RSdataora.CursorType = adOpenStatic RSdataora.Source = "select * from dataoraagg" RSdataora.Open() data = RSdataora("dataagg") ora = RSdataora("oraagg") RSdataora.close() Set RSdataora = nothing Set RSelezioni = Server.CreateObject ("ADODB.RecordSet") RSelezioni.ActiveConnection = Conn RSelezioni.CursorType = adOpenStatic RSelezioni.Source = "select * from scrutiniosezioni" RSelezioni.Open() if RSelezioni.eof then response.write "NON CI SONO DATI DA VISUALIZZARE" Conn.Close Set Conn = nothing RSelezioni.Close Set RSElezioni = nothing response.end end if lnSezTot = Rselezioni("seztot") lnSezTmp1 = Rselezioni("seztmp1") lnSezTmp2 = Rselezioni("seztmp2") lnSezTmp3 = Rselezioni("seztmp3") lnSezTmp4 = Rselezioni("seztmp4") lnPercSez1 = Rselezioni("percsez1") lnPercSez2 = Rselezioni("percsez2") lnPercSez3 = Rselezioni("percsez3") lnPercSez4 = Rselezioni("percsez4") lnValidi1 =Rselezioni("validi1") lnValidi2 =Rselezioni("validi2") lnValidi3 =Rselezioni("validi3") lnValidi4 =Rselezioni("validi4") lnBianche1=Rselezioni("bianche1") lnBianche2=Rselezioni("bianche2") lnBianche3=Rselezioni("bianche3") lnBianche4=Rselezioni("bianche4") lnCont1 =Rselezioni("cont1") lnContAss1 = Rselezioni("contass1") lnContAss2 = Rselezioni("contass2") lnContAss3 = Rselezioni("contass3") lnContAss4 = Rselezioni("contass4") lnTotVoti1 = Rselezioni("vottot1") lnTotVoti2 = Rselezioni("vottot2") lnTotVoti3 = Rselezioni("vottot3") lnTotVoti4 = Rselezioni("vottot4") 'lnPercValidi1 = FormatPercent(lnValidi1/lnTotVoti1,2) 'lnPercValidi2 = FormatPercent(lnValidi2/lnTotVoti2,2) 'lnPercValidi3 = FormatPercent(lnValidi3/lnTotVoti3,2) 'lnPercValidi4 = FormatPercent(lnValidi4/lnTotVoti4,2) RSelezioni.close lcSql = "select sum(votisiref1) as votisi1, sum(votisiref2) as votisi2, sum(votisiref3) as votisi3,"+_ "sum(votisiref4) as votisi4, sum(votinoref1) as votino1, sum(votinoref2) as votino2,"+_ "sum(votinoref3) as votino3,sum(votinoref4) as votino4 "+_ "from voti" RSelezioni.ActiveConnection = Conn RSelezioni.CursorType = adOpenStatic RSelezioni.Source = lcSql RSelezioni.Open() if RSelezioni.eof then response.write "NON CI SONO DATI DA VISUALIZZARE" Conn.Close Set Conn = nothing RSelezioni.Close Set RSElezioni = nothing response.end end if lnVotiSiRef1 = Rselezioni("votisi1") lnVotiSiRef2 = Rselezioni("votisi2") lnVotiSiRef3 = Rselezioni("votisi3") lnVotiSiRef4 = Rselezioni("votisi4") lnVotiNoRef1 = Rselezioni("votino1") lnVotiNoRef2 = Rselezioni("votino2") lnVotiNoRef3 = Rselezioni("votino3") lnVotiNoRef4 = Rselezioni("votino4") if lnVotiSiRef1 > 0 and lnValidi1 > 0 then lnPercSiRef1 = FormatPercent(lnVotiSiRef1/lnValidi1,2) end if if lnVotiSiRef2 > 0 and lnValidi2 > 0 then lnPercSiRef2 = FormatPercent(lnVotiSiRef2/lnValidi2,2) end if if lnVotiSiRef3 > 0 and lnValidi3 > 0 then lnPercSiRef3 = FormatPercent(lnVotiSiRef3/lnValidi3,2) end if if lnVotiSiRef4 > 0 and lnValidi4 > 0 then lnPercSiRef4 = FormatPercent(lnVotiSiRef4/lnValidi4,2) end if if lnVotiNoRef1 > 0 and lnValidi1 > 0 then lnPercNoRef1 = FormatPercent(lnVotiNoRef1/lnValidi1,2) end if if lnVotiNoRef2 > 0 and lnValidi2 > 0 then lnPercNoRef2 = FormatPercent(lnVotiNoRef2/lnValidi2,2) end if if lnVotiNoRef3 > 0 and lnValidi3 > 0 then lnPercNoRef3 = FormatPercent(lnVotiNoRef3/lnValidi3,2) end if if lnVotiNoRef4 > 0 and lnValidi4 > 0 then lnPercNoRef4 = FormatPercent(lnVotiNoRef4/lnValidi4,2) end if RSelezioni.close Conn.close Set Conn = nothing Set RSElezioni = nothing %>
REFERENDUM 25 - 26 GIUGNO 2006    PREFETTURA DI VARESE
situazione alle ore  <%=ora%> del <%=data%>

dati sui votanti    indice
Referendum  - Modifiche alla parte II della Costituzione
<%=lnVotiSiRef1%> <%=lnPercSiRef1%>
<%=lnVotiNoRef1%> <%=lnPercNoRef1%>
<%=lnBianche1%>
<%=lnValidi1%>
<%=lnCont1%>
<%=lnSezTmp1%> <%=lnPercSez1%>%
(click per Comuni scrutinati)