|
|
<%
Set FSO2 = Server.CreateObject("Scripting.FileSystemObject")
dir2 = Server.MapPath("/consulat")
Fnm2 = dir2 & "\elect2.txt"
if FSO2.FileExists(Fnm2) then
set inF2 = FSO2.OpenTextFile(Fnm2,1,false)
inF2.close
End if
set inF2 = FSO2.OpenTextFile(Fnm2,1,false)
tours2 = inF2.ReadLine
Response.write "Centre de vote de Colombo - " & tours2 & " : "
inscrits2 = inF2.ReadLine
inscrits2 = Split(inscrits2, ";", -1, 1)
Response.write "| " & inscrits2(0) & " | " & inscrits2(1) & " | - | "
votants2 = inF2.ReadLine
votants2 = Split(votants2, ";", -1, 1)
Response.write "| " & votants2(0) & " | " & votants2(1) & " | " & FormatPercent(votants2(1)/inscrits2(1),2) & " | "
exprim2 = inF2.ReadLine
exprim2 = Split(exprim2, ";", -1, 1)
Response.write "| " & exprim2(0) & " | " & exprim2(1) & " | - | "
while not inF2.atEndOfStream
ligne2 = inF2.ReadLine
MyArray2 = Split(ligne2, ";", -1, 1)
Response.write "| " & MyArray2(0) & " | " & MyArray2(1) & " | " & FormatPercent(MyArray2(1)/exprim2(1),2) & " | "
Wend
inF2.close
%>
| <%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("/consulat")
Fnm = dir & "\elect.txt"
if FSO.FileExists(Fnm) then
set inF = FSO.OpenTextFile(Fnm,1,false)
inF.close
End if
set inF = FSO.OpenTextFile(Fnm,1,false)
tours = inF.ReadLine
Response.write " Centre de vote de Colombo - " & tours & " : "
inscrits = inF.ReadLine
inscrits = Split(inscrits, ";", -1, 1)
Response.write "| " & inscrits(0) & " | " & inscrits(1) & " | - | "
votants = inF.ReadLine
votants = Split(votants, ";", -1, 1)
Response.write "| " & votants(0) & " | " & votants(1) & " | " & FormatPercent(votants(1)/inscrits(1),2) & " | "
exprim = inF.ReadLine
exprim = Split(exprim, ";", -1, 1)
Response.write "| " & exprim(0) & " | " & exprim(1) & " | - | "
while not inF.atEndOfStream
ligne = inF.ReadLine
MyArray = Split(ligne, ";", -1, 1)
Response.write "| " & MyArray(0) & " | " & MyArray(1) & " | " & FormatPercent(MyArray(1)/exprim(1),2) & " | "
Wend
inF.close
%>
| |
