<%
for i = 1 to 3' kac harf kac rakam olacaksa o kadar don.
'eger rakam ve harf sayisi farkli olacaksa ikisi icin farkli for dongusu acilacak
randomize
z = 90 'ascii z
a = 65 'ascii a
'a dan z ye kadar olan harflerin ascii kod araligi
pass = pass + Chr(Int((z - a + 1) * Rnd + a))
s_9 = 57 'acsii 9
s_0 = 48 'ascii 0
'0 ile 9 arasi ascii kod araligi
pass = pass + Chr(Int((s_9 - s_0 + 1) * Rnd + s_0))
next
Response.Write (pass)
%>