想让asp生成随机码存入数据库，但没做过，不知怎么办？

我有这段代码，但我如果想产生20个或30个，或自己输入想产生的随机数组数，就产生多少组，我写循环语句却没反应，帮我看看。我贴的是可产生随机数的代码

<%
Function gen_key(digits)

'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
'Initiate randomize method for default seeding
randomize

'Loop through and create the output based on the the variable passed to
'the function for the length of the key.
do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
'Set return
gen_key = output
End Function

'Write the results to the browser, currently setting a 13 digit key
response.write "<pre>" & gen_key(14) & "</pre>" & vbcrlf
response.write "<pre>" & gen_key(14) & "</pre>" & vbcrlf
response.write "<pre>" & gen_key(14) & "</pre>" & vbcrlf
response.write "<pre>" & gen_key(14) & "</pre>" & vbcrlf
%>
怎样想产生几组就产生几组啊？

楼上的说得对，但我想输入次数就显示多少组，怎么做？
、

不行啊，我加了，代码如下
n=request("n")    'n通过一个表单传过来
if n="" then
n=1
end if
for i=1 to n
do while i = n
next
response.write "<pre>" & gen_key(14) & "</pre>" & vbcrlf
显示缺少语句End function,不知怎么办？〉

做出来了，谢了madpbpl思路正确