'*** function which creates pagers navigation
    ' it returns table in HTML
    Private Function BuidPageNavigation(ByVal URL1 As String, ByVal numPages As Integer, ByVal ActualPage As Integer)   ' , ByVal AllReplies as Integer

      Dim intMaxURLLinks As Integer = _
  Configuration.ModuleConfig.GetSettings().QtyUrlTopics

      Dim tmpstring As String
      tmpstring = "<table width=100% cellspacing=1 cellpadding=0 border=0 height=12>"
      tmpstring = tmpstring + "<tr><td align='left' valign='baseline'>"

      Dim i, intstart, intfinish As Integer
      Select Case numPages

        Case Is <= 1
          Return " "

        Case Is >= (ActualPage - intMaxURLLinks / 2), Is <= (ActualPage + intMaxURLLinks / 2)

          If (ActualPage - intMaxURLLinks / 2) <= 2 Then
            intstart = 1
          Else
            intstart = (ActualPage - intMaxURLLinks / 2)
            tmpstring = tmpstring + "<a href=" + URL1 + "&pgf=1" + ">1</a> ... " ' this is as usual the first page
          End If

          If (ActualPage + intMaxURLLinks / 2) >= numPages - 1 Then
            intfinish = numPages
          Else
            intfinish = (ActualPage + intMaxURLLinks / 2)
          End If
          For i = intstart To intfinish
            If i = ActualPage Then
              tmpstring = tmpstring + "[" + Convert.ToString(i) + "] "
            Else
              tmpstring = tmpstring + "<a href=" + URL1 + "&pgf=" + Convert.ToString(i) + ">" + Convert.ToString(i) + "</a>" + " "
            End If
          Next
          If (ActualPage + intMaxURLLinks / 2) >= (numPages - 1) Then
          Else
            tmpstring = tmpstring + " ... <a href=" + URL1 + "&pgf=" + Convert.ToString(numPages) + ">" + Convert.ToString(numPages) + "</a> " ' this is as usual the last page
          End If
        Case Else
      End Select
      tmpstring = tmpstring + "</td></tr></table>"
      Return tmpstring
    End Function