Generare Grafici con LS e CSS

Ecco un esempio di Graph-bar visibile da WEB che permette di generare Grafici senza utilizzare JAVA o prodotti di terze parti...
Tutto il code è gestito da un agente LS che genera una pagina WEB in  combinazione con i fogli di stile (CSS)

Potrete vedere la demo risultante dell'agente a questo link.

Eccovi il CODE preso da SearchDomino:

****************************************************
Sub Initialize

Dim session As New notessession,db
As notesdatabase,doc As notesdocument
Dim i As Integer,
x As Integer,y As Integer, z As Integer,
h As Integer,v As Integer, s As Integer,
t As Integer

Print ""

v = 10
Print |

|
For i = 1 To 12
h = Int(Rnd * 300)
x = Int(Rnd * 256)
y = Int(Rnd * 256)
z = Int(Rnd * 256)
Print |

"| + mo(i) + |: | + Cstr(h) + |"
style=background-color:rgb
(|Cstr(x)|,| + Cstr(y) + |,| + Cstr(z) + |);left:| +
Cstr(v) + |px;height:| + Cstr(h) + |px>|
+ Cstr(h) + |

|
Print |

+ Cstr(v) +
|px;>| + mo(i) + |

|  
v = 40*i + 10
Next

t = 0
For s = 1 To 4
Print |

+ Cstr(t) + |>| + Cstr(t) + |

|  
t = 100*s
Next
Print |

|
End Sub

Function mo(no As Integer) As String

Select Case no
Case 1:mo = "Jan"
Case 2:mo = "Feb"
Case 3:mo = "Mar"
Case 4:mo = "Apr"
Case 5:mo = "May"
Case 6:mo = "Jun"
Case 7:mo = "Jul"
Case 8:mo = "Aug"
Case 9:mo = "Sep"
Case 10:mo = "Okt"
Case 11:mo = "Nov"
Case 12:mo = "Dec"
End Select

End Function
****************************************************