free!
artık yok...
<%
Private Function rsayiuret(uzunluk)
Dim dongusay, strrsayiuret
Randomize Timer()
For dongusay = 1 to uzunluk
uzunluk = clng(Rnd * 666) Mod 16
select Case uzunluk
Case 1 strrsayiuret = "1"
Case 2 strrsayiuret = "2"
Case 3 strrsayiuret = "3"
Case 4 strrsayiuret = "4"
Case 5 strrsayiuret = "5"
Case 6 strrsayiuret = "6"
Case 7 strrsayiuret = "7"
Case 8 strrsayiuret = "8"
Case 9 strrsayiuret = "9"
Case 10 strrsayiuret = "A"
Case 11 strrsayiuret = "B"
Case 12 strrsayiuret = "C"
Case 13 strrsayiuret = "D"
Case 14 strrsayiuret = "E"
Case 15 strrsayiuret = "F"
Case 16 strrsayiuret = "0"
case else strrsayiuret = "0"
End select
rsayiuret = rsayiuret & strrsayiuret
Next
End Function
%>
<% response.write "<body bgcolor='#"& rsayiuret(6) &"'></body>" %>
Private Function rsayiuret(uzunluk)
Dim dongusay, strrsayiuret
Randomize Timer()
For dongusay = 1 to uzunluk
uzunluk = clng(Rnd * 666) Mod 16
select Case uzunluk
Case 1 strrsayiuret = "1"
Case 2 strrsayiuret = "2"
Case 3 strrsayiuret = "3"
Case 4 strrsayiuret = "4"
Case 5 strrsayiuret = "5"
Case 6 strrsayiuret = "6"
Case 7 strrsayiuret = "7"
Case 8 strrsayiuret = "8"
Case 9 strrsayiuret = "9"
Case 10 strrsayiuret = "A"
Case 11 strrsayiuret = "B"
Case 12 strrsayiuret = "C"
Case 13 strrsayiuret = "D"
Case 14 strrsayiuret = "E"
Case 15 strrsayiuret = "F"
Case 16 strrsayiuret = "0"
case else strrsayiuret = "0"
End select
rsayiuret = rsayiuret & strrsayiuret
Next
End Function
%>
<% response.write "<body bgcolor='#"& rsayiuret(6) &"'></body>" %>