Re-creating controls

[gchq]

Hi there

I've developed a page that creates up to 25 ImageButtons using controls.add, criterea fed from a Database - if the records exceed 25 it creates a button to load the next batch of 25 (essentially by recording a page number in a text box..

The first part of the this runs fine - the ImageButtons are created and I can run the code I want to by clicking them - problem is when is gets to page 2 - it loads the next batch of 25 and retains the old batch! They are visible until a postback is caused and then the old 25 vanish ...

Any ideas?

Here is the much messed around sub...

Private Sub FillButtons()
 
        Dim i As Integer
        Dim vTop As Integer = 90
        Dim iStart As Integer
        Dim iEnd As Integer
 
        'Determine how many records there are..
        strSQL = "SELECT MAX(ImageView_ID) FROM ImageView"
        cmd = New OdbcCommand(strSQL, conn)
        Dim vRecords As Integer
        conn.Open()
        vRecords = cmd.ExecuteScalar
        conn.Close()
        cmd.Dispose()
 
        Dim vPageNo As Integer = PageNo.Text
        If vPageNo = 1 Then
            If vRecords < 26 Then
                iStart = 1
                iEnd = vRecords
            Else
                iStart = 1
                iEnd = 25
                Button1.Visible = True
                Button2.Visible = False
            End If ' End records if
        ElseIf vPageNo = 2 Then
            If vRecords < 51 Then
                iStart = 26
                iEnd = vRecords
                Button1.Visible = False
                Button2.Visible = True
            Else
                iStart = 26
                iEnd = 50
                Button1.Visible = True
                Button2.Visible = True
            End If 'end records if - next ElseIf after this
        End If 'End page number if
        Dim vImageButton As ImageButton
 
        For i = iStart To iEnd
            Dim vFile As String
            If i < 10 Then
                vFile = "0" & i
            Else
                vFile = i
            End If
            vImageButton = New ImageButton()
 
            vImageButton.ID = "ImageButton" & i
            ' vImageButton.Style("Position") = "Absolute"
            'vImageButton.Style("Top") = vTop & "px"
            'vImageButton.Style("Left") = "30px"
            vImageButton.Width = 80
            'vImageButton.ImageUrl = "Images/" & vFile & ".jpg"
            AddHandler vImageButton.Click, AddressOf ButtonClick
            Panel1.Controls.Add(vImageButton)
 
 
            vTop = vTop + 102
        Next