% @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 %>
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. Points are awarded for Products sales as shown below:
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...
|