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