Function RemoveFromQueryStr(ByVal strCurrentQueryString, ByVal strParamName)
    Dim strQueryString, strItem, strParamArray

    strParamArray = Split(strCurrentQueryString, "&")
    For Each strItem In strParamArray
        On Error Resume Next
        If Not Ucase(Split(strItem, "=")(0)) = Ucase(strParamName) Then
            strQueryString = strQueryString & strItem & "&"
        Else
          gb301redirect = true
        End If
        On Error Goto 0
    Next

    strQueryString = Replace(strQueryString, "&&", "&")
    RemoveFromQueryStr = strQueryString
End Function