How to reduce code for multiple filter condition using VB.Net in ASP.Net

Hi

I am checking every link for url parameters filte conditions

i am doing like

if http://localhost/?jobtype=0&contract=temporary&OrgType=Special&Keystage=KS1

i want to check that link parameters from everyside 

    Dim Main As String = "?jobtype=" & jobtype
        Dim ParaWorkingHrs As String = "&WorkingHRS=" & WorkingHRS
        Dim ParaContract As String = "&Contract=" & Contract
        Dim ParaOrgType As String = "&OrgType=" & OrgType
        Dim ParaKeyStage As String = "&KeyStage=" & KeyStage
        Dim ParaSalary As String = "&Salary=" & Salary
        Dim ParaSubject As String = "&Subject=" & Subject


        Dim checkPara1(4) As String
        checkPara1(0) = ParaContract
        checkPara1(1) = ParaOrgType
        checkPara1(2) = ParaKeyStage
        checkPara1(3) = ParaSalary
        checkPara1(4) = ParaSubject

        Dim checkPara2(4) As String
        checkPara2(0) = ParaOrgType
        checkPara2(1) = ParaKeyStage
        checkPara2(2) = ParaSalary
        checkPara2(3) = ParaSubject
        checkPara2(4) = ParaContract

        Dim checkPara3(4) As String
        checkPara3(0) = ParaKeyStage
        checkPara3(1) = ParaSalary
        checkPara3(2) = ParaSubject
        checkPara3(3) = ParaContract
        checkPara3(4) = ParaOrgType

        Dim checkPara4(4) As String
        checkPara4(0) = ParaSalary
        checkPara4(1) = ParaSubject
        checkPara4(2) = ParaContract
        checkPara4(3) = ParaOrgType
        checkPara4(4) = ParaKeyStage

        Dim checkPara5(4) As String
        checkPara5(0) = ParaSubject
        checkPara5(1) = ParaContract
        checkPara5(2) = ParaOrgType
        checkPara5(3) = ParaKeyStage
        checkPara5(4) = ParaSalary


        If e.CommandName = "lnk1" Then
            WorkingHRS = Convert.ToString(e.CommandArgument)
            Dim currenturl As String = Request.Url.Query
            currenturl = currenturl.Replace("+", " ")



            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) & checkPara3(i) & checkPara4(i) & checkPara5(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) & checkPara3(i) & checkPara4(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) & checkPara3(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) & checkPara2(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next

            For i As Integer = 0 To checkPara1.Length - 1
                If currenturl = Main & checkPara1(i) Then
                    Response.Redirect("job1.aspx" & currenturl & "&WorkingHRS=" & WorkingHRS)
                End If
            Next



            Response.Redirect("Job1.aspx?jobtype=" & jobtype & "&WorkingHRS=" & WorkingHRS)

        End If