Datagrid Template or Class - Confused

[lorena]

I am having problems because I need to create a series of .aspx pages (VS 2003) which all have the same basic function. They will list files into a pageable sortable datagrid.
I have this working code (I am shortening some of it):

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
				If Not Page.IsPostBack Then
					SortExpression = "Name"
					SortAscending = True
					BindGrid()
				End If
			End Sub
			
			Sub BindGrid()
				 deleted code that reads the files and writes to the grid				
				
				If SortAscending then
					dvFiles.Sort = SortExpression & " ASC" 
				Else
					dvFiles.Sort = SortExpression & " DESC" 
				End If

				dgFiles.DataSource = dvFiles
				
				dgFiles.DataBind()
				If fileCt < 51 Then
					GridPagerVisibility(False)
				Else
					GridPagerVisibility(True)
				End If
			End Sub

			Private Sub GridPagerVisibility(ByVal ShowHide As Boolean)
				dgFiles.PagerStyle.Visible = ShowHide
			End Sub
			
			Private Property SortExpression() As String
				Get
					Dim o As Object = ViewState("SortExpression")
					If o Is Nothing Then
						Return String.Empty
					Else
						Return o.ToString
					End If
				End Get

				Set(ByVal Value As String)
					ViewState("SortExpression") = Value
				End Set
			End Property

			Private Property SortAscending() As Boolean
				Get
					Dim o As Object = ViewState("SortAscending")
					If o Is Nothing Then
						Return True
					Else
						Return Convert.ToBoolean(o)
					End If
				End Get
				Set(ByVal Value As Boolean)
					ViewState("SortAscending") = Value
				End Set
			End Property
			
			Sub dgFiles_SortCommand(ByVal sender As Object, ByVal e As DataGridSortCommandEventArgs)
				If e.SortExpression = Me.SortExpression Then
					SortAscending = Not SortAscending
				Else
					SortAscending = True
				End If

				Me.SortExpression = e.SortExpression
				label1.text = SortExpression & "," & SortAscending.ToString
				BindGrid()
			End Sub
			
			Sub dgFiles_Paging(ByVal s As Object, ByVal e As DataGridPageChangedEventArgs)
				dgFiles.CurrentPageIndex = e.NewPageIndex
				BindGrid()
			End Sub

All of the pages (and there will be many many of them) will have this code. Is there any other way to re-use it other than cutting and pasting from one .aspx page to the next?
Needless to say, I have not done much with re-using code to date
Thanks for any help