<%
' Random Renk Fonksiyonu
Function RandomRenk(Str)
Randomize
RGB1 = Int((Rnd*255)+1)
RGB2 = Int((Rnd*255)+5)
RGB3 = Int((Rnd*255)+10)
RandomRenk = "<font color=RGB(" &RGB1&"," &RGB2&"," &RGB3&")>" & Str & "</font>"
End Function
' Örnek :
Ad = "Adiniz Soyadiniz"
Response.Write RandomRenk(Ad)
%>