генератор логина

[zxxx]

Работаю с automate 7 и во многих местах требуется знать VB, никто не подскажет код для генерации логина, чтобы из отдельных букв случайно собирал слово

 

[diavolic]

<%
'Our Function generatePassword accepts one parameter 'passwordLength'
'passwordLength will obviously determine the password length.
'The aplhanumeric character set is assigned to the variable sDefaultChars
Function generatePassword(passwordLength)
'Declare variables
Dim sDefaultChars
Dim iCounter
Dim sMyPassword
Dim iPickedChar
Dim iDefaultCharactersLength
Dim iPasswordLength
'Initialize variables
sDefaultChars="abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
iPasswordLength=passwordLength
iDefaultCharactersLength = Len(sDefaultChars) 
Randomize'initialize the random number generator
'Loop for the number of characters password is to have
For iCounter = 1 To iPasswordLength
'Next pick a number from 1 to length of character set 
iPickedChar = Int((iDefaultCharactersLength * Rnd) + 1) 
'Next pick a character from the character set using the random number iPickedChar
'and Mid function
sMyPassword = sMyPassword & Mid(sDefaultChars,iPickedChar,1)
Next 
generatePassword = sMyPassword
End Function
Response.write generatePassword(6) 'Call the function & pass in 6 as the parameter 
%>

оно?

 

[zxxx]

Что-то не принимает automate этот код, пишет Script error: "Unexpected text. '<'" at script line 2 (Code: 15544)
Давно мучался с генератором чисел и все таки нашел такого вида:
Int((1989 - 1965 + 1) * Rnd + 1965)
он подошел для программы, остальные вроде тоже правильные были, но не принимались

 

[diavolic]

Что-то не принимает automate этот код, пишет Script error: "Unexpected text. '<'" at script line 2 (Code: 15544)
Давно мучался с генератором чисел и все таки нашел такого вида:
Int((1989 - 1965 + 1) * Rnd + 1965)
он подошел для программы, остальные вроде тоже правильные были, но не принимались

<% и %> надо было убрать

 

[zxxx]

Так тоже пробывал, похоже автомат просто не принимает такого вида код

 

[diavolic]

так код то простейший. скинь ошибку сюда