PlånetSocks.com 'Flaming Penis' Logo
PlånetSocks.com 'Flaming Penis' Logo
PlånetSocks.com 'Flaming Penis' Logo






HOME





TELEVISION





 The Real World




 RW/RR BotS





 Survivor




MOVIES



MUSIC



CURRENT EVENTS



ETCETERA...



DONATE!



FAQ



MESSAGE BOARD



CALENDAR



CHAT



CONTACT US



SUBMISSIONS




ARCHIVE





Presidential Debate Bingo by PlånetSocks.com



<% ' begin random function randomize ' random numbers is the varible that will contain a numeric value ' between one and nine 'random_number=int(rnd*9)+1 ' write the random number out to the browser 'response.write random_number %> <% ' Determines how many unique random numbers to be produced tot_unique=24 ' Determines the highest value for any unique random number top_number=150 dim random_number, counter, check, unique_numbers ' When passing a varible for an array use redim redim random_number(tot_unique) ' begin random function randomize ' Begin a for next loop from one to the max number of unique numbers For counter = 1 to tot_unique ' select a number between 1 and the top number value random_number(counter) = Int(Rnd * top_number)+1 ' For next loop to compare the values stored in the array to ' the new random value being assigned for check=1 to counter-1 if random_number(check)= random_number(counter) then ' If the current value is equal to a previous value ' subject counter=counter-1 end if next ' Repeat loop to check values next ' Repeat loop to assign values to the array %>






 

1

2

3

4

5

 

6

7

8

9

10

 

11

12

13

14

15

 

16

17

18

19

20

 

21

22

23

24

25

 

26

27

28

29

30

 

31

32

33

34

35

 

36

37

38

39

40

 

41

42

43

44

45

 

46

47

48

49

50

 

51

52

53

54

55

 

56

57

58

59

60

 

61

62

63

64

65

 

66

67

68

69

70

 

71

72

73

74

75

 

76

77

78

79

80

 

81

82

83

84

85

 

86

87

88

89

90

 

91

92

93

94

95

 

96

97

98

99

100

 

101

102

103

104

105

 

106

107

108

109

110

 

111

112

113

114

115

 

116

117

118

119

120

 

121

122

123

124

125

 

126

127

128

129

130

 

131

132

133

134

135

 

136

137

138

139

140

 

141

142

143

144

145

 

146

147

148

149

150

 

Free Square

 

 

 

 

©1999-2004 PlånetSocks