response.write getCode (10) 'to obtain a random string of length Function getCode (iCount) 10 is Dim arrChar Dim j, k, strCode arrChar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" k = Len (arrChar) Randomize For i = 1 to iCount j = INT (K * RND) 1 Strcode = STRCODE & MID (Arrchar, J, 1) Next getcode = STRCODEEND FUNCTION
