<% ballot="100765" ' Check nothing is broken broken = 0 if ballot = "" then broken = 1 end if set vt = Server.Createobject("mps.Vote") openresult = vt.Open("Vote", "sa", "") ' Created object? if IsObject(vt) = TRUE then ' Opened db? if openresult = True AND broken = 0 then ballotresult = vt.SetBallotName(ballot) ' read the vote votetotal=(vt.GetVoteCount(ballot, "yes")+vt.GetVoteCount(ballot, "no")) if votetotal <> 0 then ' there are votes in the database numberyes = vt.GetVoteCount(ballot, "yes") numberno = vt.GetVoteCount(ballot, "no") percentyes = Int((numberyes/votetotal)*100) percentno = 100 - percentyes ' fix graph so funny graph heights dont appear 'if percentyes = 0 then ' percentyes = 1 'end if 'if percentno = 0 then ' percentno = 1 'end if else ' summut went wrong frig it numberyes = 0 numberno = 0 percentyes = 50 percentno = 50 end if end if end if %> Votes so far:

100% 0%			>		>
			Yes: <% =percentyes %>%		No: <% =percentno %>%

Somwhere along the way concessions will have to be made as more and more differences between nations threaten to break up the union that so many have fought so long to forge. Then perhaps we can all go back to being proud of our diversity as well as building on what we have in common.
Miles Lawson, UK

No partnership can ever succeed without concessions and this is what being part of the EU requires. It does not have to mean that a member state loses its unique identity. But on those issues which are likely to cause tension each country must be prepared to meet half way.
Jeremy Thomas, UK

Back to top | BBC News Home | BBC Homepage | ©