Private Sub BuildPager2(ByVal p_StartPage As Long, ByVal p_EndPage As Long, ByVal p_StartDote As Boolean, ByVal p_EndDote As Boolean)\n        Dim iPage As Long\n        Dim PagerLink As String\n\n        If p_StartDote Then\n            Paging.InnerHtml &= "<a href=""" & URLPath & "&pagenum=1"" class=""nav"">1</a>"\n            Paging.InnerHtml &= " .. "\n        End If\n\n        For iPage = p_StartPage To p_EndPage\n            If iPage = PageNum Then\n                PagerLink = "<a style =""BACKGROUND-COLOR: #ff9999;"">" & iPage.ToString & "</a>"\n            Else\n                PagerLink = "<a href=""" & URLPath & "&pagenum=" & iPage.ToString & """ class=""nav"">" & iPage.ToString & "</a>"\n            End If\n            Paging.InnerHtml &= " " & PagerLink\n            AddHandler Paging.ServerClick, AddressOf link_clicked\n\n        Next\n\n        If p_EndDote Then\n            Paging.InnerHtml &= " .. "\n            Paging.InnerHtml &= "<a href=""" & URLPath & "&pagenum=" & PageCount & """ class=""nav"">" & PageCount.ToString & "</a>"\n        End If\n\n        If ShowAll Then\n            If PageNum = - 1  Then\n                Paging.InnerHtml &= " " & "<a style =""BACKGROUND-COLOR: #ff9999;"">Все</a>"\n            Else\n                Paging.InnerHtml &= " " & "<a href=""" & URLPath & "&pagenum=-1"" class=""nav"">Все</a>"\n            End If\n        End If\n\n    End Sub\n\n    Protected Sub link_clicked(ByVal sender As Object, ByVal e As System.EventArgs)\n        Dim EventInfo As PagerEventArgs\n        EventInfo.ButtonName = sender.ID\n        RaiseEvent PagerClick(Me, EventInfo)\n    End Sub\n\n\n\nPublic Class PagerEventArgs\n    Inherits EventArgs\n    Public ButtonName As String\nEnd Class\n

Private Sub Pager1_PagerClick(ByVal sender As System.Object, ByVal e As ShopBook.PagerEventArgs) Handles Pager1.PagerClick\n        Dim ConnObj As New SqlConnection\n        Dim cmdObj As New SqlCommand\n        Dim SimpComp As New SQLCon.SQLConnect\n        Dim ParamNumPage As New SqlParameter("@NumPage", SqlDbType.Int)\n        Dim ParamPageSize As New SqlParameter("@PageSize", SqlDbType.Int)\n      ....................................\n        Dim SelectStr, Str, FStr, FStr1, QStr1, QStr2 As String\n        Dim i As Integer\n\n        ConnObj.ConnectionString = SimpComp.GetConn\n        SelectStr = txtFind.Text\n\n        ..................\n\n        ParamNumPage.Direction = ParameterDirection.Input\n        ParamNumPage.Value = e.ButtonName -  [b]1 [/b]\n        ParamPageSize.Direction = ParameterDirection.Input\n        ParamPageSize.Value =  6 \n        ................................\n        Try\n            ConnObj.Open()\n            cmdObj.Connection = ConnObj\n            cmdObj.CommandText = "Paging"\n            cmdObj.CommandType = CommandType.StoredProcedure\n            cmdObj.Parameters.Add(ParamNumPage)\n            cmdObj.Parameters.Add(ParamPageSize)\n            cmdObj.Parameters.Add(ParamFindStr)\n            cmdObj.Parameters.Add(ParamFindRazdel)\n            daRes.SelectCommand = cmdObj\n            daRes.Fill(dsRes, "Price_Books")\n................................\nEnd Sub