<HTML>
<script language="VB" runat="server">
Sub Page_Load(source As Object, E As EventArgs)
  Dim objConn As New SqlConnection("workstation id=Intranet;packet size=4096; _
        user id=USERID;data source=DATABASE;persist security info=True; _
        initial catalog=DATABASE;password=PASSWORD")
  Dim strSql As String = "Select valore, Nome From Tabella Order By nome"
  Dim da As New SqlDataAdapter(strSql, objConn)
  Dim ds As New DataSet
  da.Fill(ds, "Tabella")

  Dim strHTML As String
  strHTML = "<table width='80%' border='1'>"
  strHTML &= "<tr>"
  strHTML &= "<td>Nome</td><td>Percentuale"
  strHTML &= "</td><td>valore</td>"
  strHTML &= "</tr>"

  Dim dr As DataRow
  Dim intValue, intBlank As Integer
  For Each dr In ds.Tables("Tabella").Rows
    intValue = 100 * (dr("valore") / 125)
    intBlank = 100 - intValue
    strHTML &= "<tr><td width='30%'>" & dr("Nome") & "</td>" & _
        "<td width='60%'><table width='100%'><tr>"
    If intValue < 3 Then
      strHTML &= "<td height=""20px"" width=" & intValue.ToString & "% bgcolor=red>"
    ElseIf intValue > 6 Then
      strHTML &= "<td height=""20px"" width=" & intValue.ToString & "% bgcolor=green>"
    Else
      strHTML &= "<td height=""20px"" width=" & intValue.ToString & "% bgcolor=blue>"
    End If
    strHTML &= " </td>" & _
      "<td width=" & intBlank.ToString & "% </td>" & _
      "</tr></table></td>" & _
      "<td width=10%>" & dr("valore").ToString & "</td></tr>"
    Next

    strHTML &= "</table>"

    ShowTable.Text = strHTML
End Sub
</script>
<body>
<form id="Form1" method="post" runat="server">
<asp:Label id="ShowTable" runat="server"></asp:Label>
</form>
</body>
</HTML>

A colpo d'occhio

Alcune delle sezioni più interessanti del sito

Script C#

Script C# per tutte le esigenze: database, sessioni, file, contatori, stringhe, date, e-mail, e tanto altro.
Manuale C#

Manuale completo di C# per principianti e non.

Script VB.Net

Script VB.Net Visual Basic .net: database, sessioni, file, contatori, stringhe, date, e-mail, e tanto altro ancora.
Manuale SQL

Manuale di SQL con particolare attenzione a T-SQL di Microsoft SQL Server

Seo

Tecniche di posizionamento indicizzazione e ottimizzazione dei siti web per nei motori di ricerca
Manuale CSS

Manuale completo sui CSS per principianti e non.