Morpheusweb.it - Risorse per webmaster: script, ASP.NET, C#, Visual Basic .Net, tutorial, asp, javascript, css, php, html, java, ADO, VBScript, forms, frames, Active Server Pages, Dynamic HTML, database, gratis per webmaster e webdesigner

Percentuals - << VB.NET VERSION >>

Print an html table with graph percentuals

<%@ Page language="c#" %>
<HTML>
<script language="c#" runat="server">
private void Page_Load(object sender, System.EventArgs e)
{
  SqlConnection objConn =
    new SqlConnection("server=DBSERVER;User id=USER;password=PASSWORD;database=DB");
  string strSql = "Select valore, Nome From Tabella Order By nome";
  SqlDataAdapter da = new SqlDataAdapter(strSql, objConn);
  DataSet ds = new DataSet();
  da.Fill(ds, "Tabella");

  string strHTML;
  strHTML =
    "<table width='80%' border='1'>" +
    "<tr>" +
    "<td>Nome</td><td>Percentuale" +
    "</td><td>valore</td>" +
    "</tr>";
  int intValue, intBlank;

  foreach (DataRow dr in ds.Tables["Tabella"].Rows)
  {
    intValue = 100 * (Convert.ToInt32(dr["valore"]) / 125);
    intBlank = 100 - intValue;
    strHTML +=
      "<tr><td width='30%'>" + dr["Nome"] + "</td>" +
      "<td width='60%'><table width='100%'><tr>";
    if (intValue < 3)
      strHTML += "<td height='20px' width=" + intValue.ToString() + "% bgcolor=red>";
    else if (intValue > 6)
      strHTML += "<td height='20px' width=" + intValue.ToString() + "% bgcolor=green>";
    else
      strHTML += "<td height='20px' width=" + intValue.ToString() + "% bgcolor=blue>";
  strHTML +=
    " </td>" +
    "<td width=" + intBlank.ToString() + "% </td>" +
    "</tr></table></td>" +
    "<td width=10%>" + dr["valore"].ToString() + "</td></tr>";
  }

  strHTML += "</table>";
  ShowTable.Text = strHTML;
}
</script>
<body>
<form id="Form1" method="post" runat="server">
<asp:Label id="ShowTable" runat="server"></asp:Label>
</form>
</body>
</HTML>

Download Code...

Page top