Bonjour et bonne année
Je souhaite inclure un fichier en fonction d'un chiffre tiré au sort
le code ci-dessous fonctionne si on écrit un chiffre en dur Nbre = 24, mais je voudrais obtenir un chiffre au hasard entre 1 et 55
Merci,
Il n'aime pas cette Line 6: randomNumber = Int(3*Rnd+1)
Compiler Error Message: BC30512: Option Strict On disallows implicit conversions from 'Single' to 'Integer'.
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20<% Dim Nbre As Integer Dim randomNumber As Integer Randomize randomNumber = Int(3*Rnd+1) Nbre = randomNumber Select Case Nbre Case 1 To 3 Response.Write("blog/data/m/rando-mode28.aspx") Case 18 To 55 Response.WriteFile("blog/data/m/rando-mode36.aspx") Case Else Response.WriteFile("blog/data/m/rando-mode54.aspx") End Select %>
