Rastgele Yazı

<%
'Dimension variables

Dim strChoose
Dim strQuote

'Quotes

'Number of quotes (change)
Const strTotal = 5

randomize
strChoose=int(rnd*strTotal)+1

Select case strChoose
case 1
strQuote = "Rastgele yazı 1 - MyDesign.gen.tr"

case 2
strQuote = "Rastgele yazı 2 - MyDesign.gen.tr"

case 3
strQuote = "Rastgele yazı 3 - MyDesign.gen.tr"

case 4
strQuote = "Rastgele yazı 4 - MyDesign.gen.tr"

case 5
strQuote = "Rastgele yazı 5 - MyDesign.gen.tr"

End select

Response.Write strQuote
%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

rastgele yazı