<% Set Conn = Server.CreateObject("ADODB.Connection") Set RSElezioni = Server.CreateObject ("ADODB.RecordSet") Conn.Open "dsn=risult" 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") 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 12 - 13 GIUGNO 2005    PREFETTURA DI VARESE
situazione alle ore  <%=ora%> del <%=data%>

dati sui votanti    indice
Referendum 1 - procreazione medicalmente assistita - limite alla ricerca clinica e sperimentale sugli embrioni (abrogazione parziale) Referendum 3 - procreazione medicalmente assistita - norme sulle finalità, sui diritti dei soggetti coinvolti e sui limiti dell'accesso (abrogazione parziale)
<%=lnVotiSiRef1%> <%=lnPercSiRef1%>
<%=lnVotiNoRef1%> <%=lnPercNoRef1%>
<%=lnBianche1%>
<%=lnValidi1%>
<%=lnContAss1%>
<%=lnSezTmp1%> <%=lnPercSez1%>%
(click per Comuni scrutinati)    
<%=lnVotiSiRef3%> <%=lnPercSiRef3%>
<%=lnVotiNoRef3%> <%=lnPercNoRef3%>
<%=lnBianche3%>
<%=lnValidi3%>
<%=lnContAss3%>
<%=lnSezTmp3%> <%=lnPercSez3%>%
(click per Comuni scrutinati)    
Referendum 2 - procreazione medicalmente assistita - norme sui limiti dell'accesso (abrogazione parziale) Referendum 4 - procreazione medicalmente assistita - divieto di fecondazione eterologa (abrogazione del divieto)
<%=lnVotiSiRef2%> <%=lnPercSiRef2%>
<%=lnVotiNoRef2%> <%=lnPercNoRef2%>
<%=lnBianche2%>
<%=lnValidi2%>
<%=lnContAss2%>
<%=lnSezTmp2%> <%=lnPercSez2%>%
(click per Comuni scrutinati)    
<%=lnVotiSiRef4%> <%=lnPercSiRef4%>
<%=lnVotiNoRef4%> <%=lnPercNoRef4%>
<%=lnBianche4%>
<%=lnValidi4%>
<%=lnContAss4%>
<%=lnSezTmp4%> <%=lnPercSez4%>%
(click per Comuni scrutinati)