<%
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Function RandomNumber(intHighestNumber)
Randomize
RandomNumber = Int(intHighestNumber * Rnd) + 1
End Function
Dim valeurs(7)
for i = 1 to 7
valeurs(i) = ""
next
for i = 1 to 7
refaire = "oui"
while refaire = "oui"
temp = RandomNumber(7)
'response.write temp & " "
cptfois = 0
for x= 1 to 7
if ( valeurs(x) = temp) then
cptfois = cptfois + 1
end if
next
'response.write cptfois & " "
if cptfois > 0 then
refaire = "oui"
else
valeurs(i) = temp
refaire = "non"
end if
wend
next
v11 = valeurs(1)
v12 = valeurs(2)
v13 = valeurs(3)
v14 = valeurs(4)
v15 = valeurs(5)
v16 = valeurs(6)
v17 = valeurs(7)
for i = 1 to 7
'response.write valeurs(i) & " "
next
if request.QueryString("jeu") = "1" then
jeu = 1
elseif request.QueryString("jeu") = "2" then
jeu = 2
else
jeu = 1
end if
%>