<% ballot="45130" ' 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 %>%

Of course diets work. If your food intake yields less energy than your body consumes, you will lose weight. The problem arises when people become obsessed with losing weight and take things too far.
Neil Tonks, UK

There's a great deal of competition in the diet industry which leads some manufacturers to promise their customers almost instant weight loss. What many people fail to realise is that if weight comes off quickly it often goes back on just as fast.
People should rely on more on their own will power and a sensible long term approach rather than the get slim quick promises of manufactures who stand to profit if their products don't work in the long term and dieters are therefore forced to use them again and again.
Araminta Jones, UK

Crash diets rarely work. As for other diets, I think it's a case of finding what suits you, your lifestyle and your metabolism.
Cary, Scotland

Back to top | BBC News Home | BBC Homepage	©