Cenk SARI

.etiketler {
    width: 200px;
    list-style-type: none;
    margin: 0;
    padding: 0; }
.etiketler li {
    display: inline;
    margin-right: 8px; }
.etiket-1 {
    font-size: 11px; }
.etiket-2 {
    font-size: 14px; }
.etiket-3 {
    font-size: 18px; }
.etiket-4 {
    font-size: 22px; }
.etiket-5 {
    font-size: 24px; }

<asp:Literal ID="ltrEtiketler" runat="server"></asp:Literal>

    ltrEtiketler.Text = String.Empty
    Dim sbEtiket As New StringBuilder()
    sbEtiket.AppendLine("<ul class=""etiketler"">")

    ' Etiketlerimizi datasete aktarıyoruz
    Dim Sql As String = "SELECT tbl_etiket.ETIKET, COUNT(x.EID) AS TOPLAM FROM tbl_etiket "
    Sql += "LEFT OUTER JOIN tbl_etiket AS x ON tbl_etiket.EID = x.EID "
    Sql += "GROUP BY tbl_etiket.ETIKET;"
    Dim Veritabani As New OleDbConnection("Data Source=" & Server.MapPath("App_Data/etiketBulutu.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;")
    Dim Veriler As New OleDbDataAdapter(Sql, Veritabani)
    Dim Cenk As New DataSet
    Veriler.Fill(Cenk, "ETIKETLER")
    ' Etiketler tablosunda veri varsa bu işlemleri yap
    If Cenk.Tables("ETIKETLER").Rows.Count > 0 Then
        ' Etiketlerimizi dataview e aktarıyoruz
        Dim etiketVerileri As DataView = Cenk.Tables("ETIKETLER").DefaultView
        ' Etiketlerimizin boyutlarını tanımlıyoruz
        Dim fontBoyutu() As String = {"etiket-1", "etiket-2", "etiket-3", "etiket-4", "etiket-5"}
        ' Etiketlerimizin boyutlarını bulmaya başlıyoruz, minimum boyut
        Dim minBoyut As Decimal = Decimal.MaxValue, maxBoyut As Decimal = Decimal.MinValue
        ' Bu döngü ile en küçük ve en büyük boyutta olacak etiketlerimizi buluyoruz
        For Each row As DataRowView In etiketVerileri
            ' Her bir etiketten kaç tane var
            Dim etiketToplami As Object = row("TOPLAM")
            If Not Convert.IsDBNull(etiketToplami) Then
                Dim etiketToplamiDec As Decimal = Convert.ToDecimal(etiketToplami)
                If etiketToplamiDec < minBoyut Then minBoyut = etiketToplamiDec
                If etiketToplamiDec > maxBoyut Then maxBoyut = etiketToplamiDec
            End If
        Next
        ' Etiketlerimizi boyutlandırmaya devam ediyoruz
        Dim etiketBoyutlandir As Decimal = (maxBoyut - minBoyut + 1) / Convert.ToDecimal(fontBoyutu.Length)
        ' Etiketlerimizi formatlayıp yazdırmaya hazır hale getiriyoruz
        For Each row As DataRowView In etiketVerileri
            Dim etiketToplami As Object = row("TOPLAM")
            If Not Convert.IsDBNull(etiketToplami) Then
                Dim etiketToplamiDec As Decimal = Convert.ToDecimal(etiketToplami)
                Dim boyutDegeri As Integer = Math.Truncate((etiketToplamiDec - minBoyut) / etiketBoyutlandir)
                sbEtiket.AppendLine("<li class=""" & fontBoyutu(boyutDegeri) & """><a href=""Etiket/" & row("ETIKET").ToString & """>" & row("ETIKET").ToString & "</a></li>")
            End If
        Next

    End If
    sbEtiket.AppendLine("</ul>")
    ' Etiketlerimizi yazdırıyoruz
    ltrEtiketler.Text = sbEtiket.ToString