FIFA 2002

<% @Language = VBScript %> <% Option Explicit %> <% Dim ID,Coin1,Coin2,Coin5,Coin10,Coin20,Coin50,PlayerName,Total Dim singles,showtens,tens,n dim coin1gifs,coin2gifs,coin5gifs,coin10gifs,coin20gifs,coin50gifs Dim strSQL,objRS function min(val1,val2) if val1 < val2 then min = val1 else min = val2 end if end function ID = Request.Cookies("userID") if (ID = "") or ID = "0" Then Response.redirect("locker_not_logged_in.htm") '############################################################## ' REMOVE - ONLY FOR TESTING ' 'ID = 5 '############################################################## end if ' CREATE DB CONNECTION strSQL = "SELECT * FROM Users WHERE ID = " & ID & ";" Set objRS = objConn.Execute(strSQL) Coin1 = objRS("Coin1") Coin2 = objRS("Coin2") Coin5 = objRS("Coin5") Coin10 = objRS("Coin10") Coin20 = objRS("Coin20") Coin50 = objRS("Coin50") PlayerName = objRS("PlayerName") Total = Coin1 + (Coin2 * 2) + (Coin5 * 5) + (Coin10 * 10) + (Coin20 * 20) + (Coin50 * 50) 'COIN1 coin1gifs = "" singles = coin1 mod 10 tens = (coin1 \ 10) if singles = 0 then showtens = min(9,tens) else showtens = min(8,tens) end if For n = 1 to showtens coin1gifs = coin1gifs & "" Next coin1gifs = coin1gifs & "" 'COIN2 coin2gifs = "" singles = coin2 mod 10 tens = (coin2 \ 10) if singles = 0 then showtens = min(9,tens) else showtens = min(8,tens) end if For n = 1 to showtens coin2gifs = coin2gifs & "" Next coin2gifs = coin2gifs & "" 'COIN5 coin5gifs = "" singles = coin5 mod 10 tens = (coin5 \ 10) if singles = 0 then showtens = min(9,tens) else showtens = min(8,tens) end if For n = 1 to showtens coin5gifs = coin5gifs & "" Next coin5gifs = coin5gifs & "" 'COIN10 coin10gifs = "" singles = coin10 mod 10 tens = (coin10 \ 10) if singles = 0 then showtens = min(9,tens) else showtens = min(8,tens) end if For n = 1 to showtens coin10gifs = coin10gifs & "" Next coin10gifs = coin10gifs & "" 'COIN20 coin20gifs = "" singles = coin20 mod 10 tens = (coin20 \ 10) if singles = 0 then showtens = min(9,tens) else showtens = min(8,tens) end if For n = 1 to showtens coin20gifs = coin20gifs & "" Next coin20gifs = coin20gifs & "" 'COIN50 coin50gifs = "" singles = coin50 mod 10 tens = (coin50 \ 10) if singles = 0 then showtens = min(9,tens) else showtens = min(8,tens) end if For n = 1 to showtens coin50gifs = coin50gifs & "" Next coin50gifs = coin50gifs & "" %> FIFA 2002

Hi there, Bob, how are you doing?
This is your own personal locker which tells you how many points you have collected so far in the FIFA WORLD CUP™ CHALLENGE. Don't forget, the more points you collect, the more times you'll be able to enter the draw. So remember to look for the latest secret icon every day and increase your chances of going to Yokohama, Japan, for the 2002 FIFA WORLD CUP™ FINAL!

IMPORTANT - once the final secret icon has been hidden on Yahoo! on 5th May 2002 , you'll need to return to your Locker to redeem your points and enter into the prize draw.

1 POINT VALUE

TOTAL

2 POINTS VALUE

5 POINTS VALUE

10 POINTS VALUE

20 POINTS VALUE

50 POINTS VALUE

400


	This is where you can redeem your points in return for entries into the FIFA WORLD CUP™ CHALLENGE prize draw. Just return to this section anytime between 6th May and 12th May 2002. In the meantime, make sure you collect as many valuable points as you can by remembering to look for the latest secret icon - there'll be a new one every day until 5th May 2002.

515