Materiale di PritOnline.it.

Per visualizzare delle brevi frasi (= suggerimenti, novità, informazioni) diverse ad ogni reload di pagina ASP basta sfruttare la tecnica esposta nella precedente pillola unita alla struttura condizionale dell'istruzione CASE, così come mostrato nel seguente frammento di codice sorgente:

<% 

' Dichiara tutte le variabili usate
Dim tot_tips, one_tip, txt_tip

' Inizializza il generatore pseudo-casuale
Randomize()

' Imposta il numero massimo di suggerimenti
tot_tips = 3

' Genera un numero pseudo-casuale compreso tra 1 e il massimo
one_tip = CInt( tot_tips*Rnd() + 1 ) 

' Setta il testo del suggerimento in base
' al valore del numero pseudo-casule
Select Case one_tip
   Case 1	txt_tip = "Frase numero UNO"
   Case 2	txt_tip = "Frase numero DUE"
   Case 3	txt_tip = "Frase numero TRE"
   Case Else	txt_tip = "Frase di comodo !!!"
End Select

' Mostra a video il suggerimento
Response.Write( txt_tip )

%>