<%
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='CENTRO' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='CENTRO' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/32,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='CENTRO' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='CENTRO' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| RESULTADOS GETAFE POR BARRIOS (FUENTE: Ayuntamiento de Getafe) |
| BARRIO CENTRO |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
Nš VOTOS |
% VOTOS |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
RESTO |
<%=VotosOtros%> |
<%=FormatNumber(VotosOtros*100/VotosValidosBarrio,2)%> % |
<%
call BBDDCierraRS(rs)
%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='GETAFE NORTE' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='GETAFE NORTE' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/18,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='GETAFE NORTE' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='GETAFE NORTE' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO GETAFE NORTE |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
RESTO |
<%=VotosOtros%> |
<%=FormatNumber(VotosOtros*100/VotosValidosBarrio,2)%> % |
<%
call BBDDCierraRS(rs)
%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='JUAN DE LA CIERVA' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='JUAN DE LA CIERVA' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/35,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='JUAN DE LA CIERVA' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='JUAN DE LA CIERVA' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO JUAN DE LA CIERVA |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
RESTO |
<%=VotosOtros%> |
<%=FormatNumber(VotosOtros*100/VotosValidosBarrio,2)%> % |
<%
call BBDDCierraRS(rs)
%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='EL BERCIAL' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='EL BERCIAL' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/8,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='EL BERCIAL' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='EL BERCIAL' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO EL BERCIAL |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
RESTO |
<%=VotosOtros%> |
<%=FormatNumber(VotosOtros*100/VotosValidosBarrio,2)%> % |
<%
call BBDDCierraRS(rs)
%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='LA ALHONDIGA' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='LA ALHONDIGA' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/22,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='LA ALHONDIGA' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='LA ALHONDIGA' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO LA ALHÓNDIGA |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
RESTO |
<%=VotosOtros%> |
<%=FormatNumber(VotosOtros*100/VotosValidosBarrio,2)%> % |
<%
call BBDDCierraRS(rs)
%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='LAS MARGARITAS' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='LAS MARGARITAS' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/10,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='LAS MARGARITAS' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='LAS MARGARITAS' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO LAS MARGARITAS |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='PERALES DEL RIO' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='PERALES DEL RIO' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/9,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='PERALES DEL RIO' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='PERALES DEL RIO' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO PERALES DEL RIO |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='SAN ISIDRO' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='SAN ISIDRO' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/11,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='SAN ISIDRO' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='SAN ISIDRO' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO SAN ISIDRO |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
|
|
|
|
<%end if
CadenaSql="SELECT DiSecBar.Barrio, Count(Mesas.Dis) AS CuentaDeDis, Sum(Mesas.Ele) AS SumaDeEle, Sum(EscRes.Votantes) AS SumaDeVotantes, Sum(EscRes.Blancos) AS SumaDeBlancos, Sum(EscRes.Nulos) AS SumaDeNulos FROM (Mesas INNER JOIN DiSecBar ON (Mesas.Sec = DiSecBar.Seccion) AND (Mesas.Dis = DiSecBar.Distrito)) INNER JOIN EscRes ON (Mesas.Mes = EscRes.Mes) AND (Mesas.Sec = EscRes.Sec) AND (Mesas.Dis = EscRes.Dis) WHERE DiSecBar.Barrio='SECTOR III' GROUP BY DiSecBar.Barrio"
call BBDDAbreRSListado (Con,rs,CadenaSql)
participacion=FormatNumber(rs("SumaDeVotantes")*100/rs("SumaDeEle"))
call BBDDCierraRS(rs)
CadenaSql="SELECT EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct FROM EscRes INNER JOIN DiSecBar ON (EscRes.Sec = DiSecBar.Seccion) AND (EscRes.Dis = DiSecBar.Distrito) WHERE DiSecBar.Barrio='SECTOR III' AND EscRes.Votantes>0 GROUP BY EscRes.Dis, EscRes.Sec, EscRes.Mes, DiSecBar.Barrio, EscRes.Ele, EscRes.Altas, EscRes.Votantes, EscRes.Blancos, EscRes.FAct"
call BBDDAbreRSListado (Con,rs,CadenaSql)
escrutinio=FormatNumber(rs.recordcount*100/29,2)
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan AS Otros, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes = ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec = ConsBarrios_b.disec) ON Colegios.IdCol = EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan = EscDet1.IdCan) ON EscRes.IdRes = EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='SECTOR III' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)<>'PSOE' And (Candidaturas.SCan)<>'PP' And (Candidaturas.SCan)<>'IU-CM' And (Candidaturas.SCan)<>'UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosOtros=0
Do while not rS.EOF
VotosOtros=VotosOtros+rs("Votos")
rs.movenext
Loop
call BBDDCierraRS(rs)
CadenaSql="SELECT ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan, Sum(EscRes.Ele) AS Ele, Sum(EscRes.Votantes) AS Votantes, Sum(EscRes.Blancos) AS Blancos, Sum(EscRes.Nulos) AS Nulos, Sum(EscDet1.Votos) AS Votos FROM (Colegios INNER JOIN ((EscRes INNER JOIN ConsBarrios_a ON EscRes.IdRes=ConsBarrios_a.IdRes) INNER JOIN ConsBarrios_b ON ConsBarrios_a.disec=ConsBarrios_b.disec) ON Colegios.IdCol=EscRes.Col) INNER JOIN (Candidaturas INNER JOIN EscDet1 ON Candidaturas.IdCan=EscDet1.IdCan) ON EscRes.IdRes=EscDet1.IdDet WHERE (((EscRes.IdCov)=14)) AND ConsBarrios_b.Barrio='SECTOR III' GROUP BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan HAVING (((Candidaturas.SCan)='PSOE' Or (Candidaturas.SCan)='PP' Or (Candidaturas.SCan)='IU-CM' Or (Candidaturas.SCan)='UPyD')) ORDER BY ConsBarrios_b.Barrio, Candidaturas.SCan, Candidaturas.NCan"
call BBDDAbreRSListado (Con,rs,CadenaSql)
VotosValidosBarrio=rs("votantes")
if VotosValidosBarrio>0 then
%>
| BARRIO SECTOR III |
ESCRUTINIO:
<%=escrutinio%> % |
PARTICIPACIÓN:
<%=participacion%> % |
PARTIDO |
VOTOS |
% |
<%
Do while not rS.EOF
%>
<%=rs("SCAN")%> |
<%=rs("votos")%> |
<%=FormatNumber(rs("votos")*100/VotosValidosBarrio,2)%> % |
<% Select case rs("SCAN")
case "PSOE": votos_PSOE=rs("votos")
case "PP": votos_PP=rs("votos")
case "IU-CM": votos_IU=rs("votos")
case "UPyD": votos_UPD=rs("votos")
end select
rs.movenext
Loop%>
|
|
|
|
|
