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
%>