Tante volte vi sarà capitato di aver bisogno di inserire una valutazione accanto ad un campo, con questa soluzione semplice nel punto in cui dovete inserire il voto vi basta richiamare la sub MostraVoto per avere la valutazione presentata graficamante.

<%

Sub MostraVoto(VotoCorrente, VotoMassimo, NumeroImmagini)

Voto = VotoCorrente/VotoMassimo*10
Response.write("<nobr>")

If Voto >= 2 Then TestoVoto = "Pessimo"
If Voto >= 4 Then TestoVoto = "Scadente"
If Voto >= 6 Then TestoVoto = "Discreto"
If Voto >= 8 Then TestoVoto = "Buono"
If Voto > 9 Then TestoVoto = "Ottimo"

for ciclo = 1 to NumeroImmagini
  Img = "votovuoto"
  If Voto > 0.25 Then Img = "votomezzo"
  If Voto > 0.75 Then Img = "votopieno"

  response.write ("<img src=/grafica/" & Img & ".gif alt=" & TestoVoto &">")
  Voto = Voto - (VotoMassimo / NumeroImmagini)
next

response.write("</nobr>")

end sub

%>

Lo script qui sopra puo' essere messo in un file .inc e cosi' richiamato
semplicemente tutte le volte che serve.

<%

call MostraVoto(Voto, VotoMassimo, NumeroImmagini)

%>

è la funzione da chiamare nel punto in cui volete presentare graficamente il voto.
Il primo valore è il voto da presentare, il secondo la scala su cui presentarlo mentre il terzo indica il numero di elementi grafici da utilizzare.

Per esempio un voto di 3/5 con una grafica su scala 10 verrà chiamato con

<%

call MostraVoto(3, 5, 10)

%>

ed avrà come output 6 simboli pieni e 4 vuoti.

Un voto di 7/10 su scala 5 si chiamerà con

<%

call MostraVoto(7, 10, 5)

%>

e presenterà 3 simboli pieni, 1 mezzo ed 1 vuoto.