Hla, yo uso este codigo para generar un codigo aleatorio para claves y me funciona perfecto, usalo talcual
coloca esto primero
<%
Dim nCardId, sNameTo, sNameFrom, sEmailFrom, sText, sBGColor, sTextColor, sEmailTo
Dim sOtherId
Function Password_GenPass( nNoChars, sValidChars )
Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRS TUVXYZ0123456789"
Dim nCount
Dim sRet
Dim nNumber
Dim nLength
Randomize
If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet
End Function
sOtherId = Password_GenPass( 10, "" )
' donde vez el numero 10 es para el numero
'de digitos que deseas para tu codigo.
%>
y donde quieras colocar el codigo generado por esta funcion coloca esto
& sOtherId &
o <%=sOtherId&>
espero te sirva
suerte
PD: lo que hace este codigo es generarte una caddena de caracteres de 10 digitos con letras y numeros, mayusculas y minusculas.
por ejemplo: qMi78k3Sp1
<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">