Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Min, Max As String

        If IsPostBack Then
            Page.Validate()
            If Page.IsValid Then
                Min = MinTextBox.Text.ToString()
                Max = MaxTextBox.Text.ToString()
                Session.Add("MinKey", Min)
                Session.Add("MaxKey", Max)
                Response.Redirect("Results.aspx")
            End If
        End If
    End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim Min, Max As String
    Dim myDatabaseConnection As SqlClient.SqlConnection = Nothing
    Dim myCommand As SqlClient.SqlCommand = Nothing
    Dim myReader As SqlClient.SqlDataReader = Nothing

    NoDataLabel.Visible = False

    If Session.Count = 0 Then   ' No session items were supplied.
        NoDataLabel.Visible = True
    Else
        Min = Session("MinKey")
        Max = Session("MaxKey")
        Try
            Dim connectionString As String = _
                ConfigurationManager.ConnectionStrings("PartsConnectionString").ConnectionString
            myDatabaseConnection = New SqlClient.SqlConnection(connectionString)
            myCommand = New SqlClient.SqlCommand()

            'Set up to use a stored procedure:
            myCommand.CommandType = CommandType.StoredProcedure
            myCommand.Connection = myDatabaseConnection
            myCommand.CommandText = "SelectByRange"
            myCommand.Parameters.AddWithValue("@Min", Min)
            myCommand.Parameters.AddWithValue("@Max", Max)

            'Use an SqlDataReader to execute the stored procedure and
            'get the results into the GridView:
            myDatabaseConnection.Open()
            myReader = myCommand.ExecuteReader()
            If myReader.HasRows Then
                PartsGridView.Visible = True
                PartsGridView.DataSource = myReader
                PartsGridView.DataBind()
            Else
                NoDataLabel.Visible = True
            End If
            myDatabaseConnection.Close()
            myDatabaseConnection.Dispose()
        Catch exception As System.Data.SqlClient.SqlException
            DatabaseErrorLabel.Visible = True
        Catch exception As Exception
            DatabaseErrorLabel.Visible = True
        Finally    'Do cleanup tasks here:
            myCommand = Nothing

            If Not myReader Is Nothing AndAlso _
                Not myReader.IsClosed Then
                myReader.Close()
            End If

            myReader = Nothing

            If Not myDatabaseConnection Is Nothing AndAlso _
                myDatabaseConnection.State = ConnectionState.Open Then
                myDatabaseConnection.Close()
                myDatabaseConnection.Dispose()
            End If

            myDatabaseConnection = Nothing
        End Try
    End If
End Sub