ASP.NET

Dim noOfTimes As Integer = 0
           Dim CurrentName As String = Nothing
           Dim trow As TableRow = New TableRow

           For d = 0 To 31
               Dim tbcell As TableCell = New TableCell
               'Iterate to see which cells have a booking against a name
               If testarray(d) = Nothing Then
                   'No booking case
                   CurrentName = Nothing
                   tbcell.BackColor = Color.FromName("#FFFFFF")
               Else
                   'booking exists, find noOfTimes it is booked for same employee
                   CurrentName = testarray(d)

                   'search subsequent entries for same name
                   Dim j As Integer
                   For j = d + 1 To 31
                       '
                       If testarray(j) = CurrentName Then
                           'same name repeated
                           noOfTimes = noOfTimes + 1

                       Else
                           'name is not repeated, print name and advance d counter by number of times
                           Response.Write(" Span of " + noOfTimes.ToString() + " " + CurrentName)
                           d = d + noOfTimes

                           'exit for loop using the statement below
                           Exit For
                       End If
                   Next

        Dim myHyperLink1 As LinkButton = New LinkButton()
        myHyperLink1.ID = "myHyperLink1"
        myHyperLink1.Text = "Click Here dear "
        myHyperLink1.PostBackUrl = ""
         AddHandler myHyperLink1.Click, AddressOf OnClickLink
         tbcell.Controls.Add(myHyperLink1)



                   'tbcell.BackColor = Color.FromName("#CCCCCC")
                   tbcell.ColumnSpan = noOfTimes
                   noOfTimes = 0
               End If

               tbcell.Text = " "
               trow.Cells.Add(tbcell)
           Next

           Table1.Rows.Add(trow)
       Next