<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile("result.txt")
Dim ChoiceArray(4)
ChoiceArray(0)=objRF.ReadLine
ChoiceArray(1)=objRF.ReadLine
ChoiceArray(2)=objRF.ReadLine
ChoiceArray(3)=objRF.ReadLine
ChoiceArray(4)=objRF.ReadLIne
objRF.Close
Set objRF=Nothing
asnwer=Request.Form("choice")
Select Case answer
Case1
ChoiceArray(0)=ChoiceArray(0)+1
Case2
ChoiceArray(1)=ChoiceArray(1)+1
Case3
ChoiceArray(2)=ChoiceArray(2)+1
Case4
ChoiceArray(3)=ChoiceArray(3)+1
Case5
ChoiceArray(4)=ChoiceArray(4)+1
End Select
Load balance : Server 04
