<% @LANGUAGE = VBScript %> <% Option Explicit Dim scoundrels, suspects, sco_bar, sus_bar Dim objFS, objTextS, strLine, strVRoot, objRootFolder ' strVRoot = Server.MapPath("/") Set objFS = Server.CreateObject("Scripting.FileSystemObject") ' Set objRootFolder = objFS.GetFolder(strVRoot) If objFS.FileExists("scores.txt") = True Then Set objTextS = objFS.OpenTextFile("scores.txt", 1, 0) strLine = objTextS.ReadLine objTextS.Close Set objTextS = Nothing Set ObjFS = Nothing scoundrels = 45 suspects = 18 Else Set objTextS = objFS.CreateTextFile("scores.txt", False, False) scoundrels = 1 suspects = 1 objTextS.Writeline suspects & " " & scoundrels objTextS.Close Set objTextS = Nothing Set ObjFS = Nothing End If if (scoundrels > suspects) then sco_bar=180 sus_bar = (suspects / scoundrels) * 180 Else sco_bar = (scoundrels / suspects) * 180 sus_bar = 180 End If %> New Page 1
Anthony Becks
Salesman formally known as Fev Sheilesh
Stefano
         

<%= suspects %>

 

Suspects

<%= scoundrels %>

 

Scoundrels

Alex Barry
Bennet Dene
Eddie

 

The Challenge: 

Throughout the quarter (July, August, September) there will be a competition.
The team with the most points at the end of each month will be going on a special trip.

Points are awarded for Products sales as shown below:

SURESTREAM CONNECTIONS 512K - 100 POINTS
SURESTREAM CONNECTIONS 1MB  - 125 POINTS
SURESTREAM CONNECTIONS 2MB  - 150 POINTS
SURESTREAM CONNECTIONS 4MB  - 200 POINTS

 4MB ADSL - 25 POINTS
8MB ADSL - 50 POINTS
1MB SDSL - 25 POINTS
2MB SDSL - 50 POINTS

 512K OPTION 4 ADSL - 100 POINTS  (NB: NO PRICE DROP)

OFFICE HOST - 75 POINTS

 SECURITY - BESPOKE POINTS (My Decision)

The reward for the team with the highest points will chose from these prizes:

A day out, all paid for with lunch, dinner & transport included....

     

 A trip to Chessington World of adventures or Go Karting @ Daytona...
 maybe Paintball or even a trip to Dublin to the Guinness factory?...I`ll even consider your suggestions.