esse codigo gera o codigo ai para fazelo funcionar já é outros 500.... <%
Function GeraString(tamString, tipo, tamParte)
tamString = Int(tamString) 'nº de caracteres em cada parte
tipo = Int(tipo) 'tipo da String: 1 alfanumérica, 2 = só letras, 3 = números
tamParte = Int(tamParte) 'nº de partes que será criada
if IsNumeric(tamString) = False OR tamString = 0 then
tamString = 5
end if
if IsNumeric(tipo) = False OR tipo = 0 then
tipo = 1
end if
if IsNumeric(tamParte) = False OR tamParte = 0 then
tamParte = 3
end if
if tipo = 1 then
MyArr = Array("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
elseif tipo = 2 then
MyArr = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
else
MyArr = Array("1","2","3","4","5","6","7","8","9","0")
end if
for d = 1 to tamParte
for i = 1 to tamString
Randomize
StringGerada = StringGerada & MyArr(Int(Rnd*UBound(MyArr)))
next
varRand = StringGerada
if tamParte = 1 then
StringFinal = StringFinal & "{" & varRand & "}"
else
if d = tamParte then
StringFinal = StringFinal & varRand & "}"
else
if d = 1 then
StringFinal = StringFinal & "{" & varRand & " - "
else
StringFinal = StringFinal & varRand & " - "
end if
end if
end if
StringGerada = ""
next
GeraString = StringFinal
End Function
%>
<div align='center' style="font-family:verdana; font-size:11px">
<%=GeraString(7, 1, 1)%>
</div>