Help me Sort this out please!

I have this code where I am retrieving DB results. I can display results from the WHOLE DB Ordered by email, first or last name etc...

But how do I sort a resultset from certain records ORDERED by another condition?

Code:

---

dim strQuery
        dim strSort
        dim strName
        dim sql
        dim sql2
        dim SearchSql
        dim rs
       
        set rs = server.CreateObject("adodb.recordset")

        strQuery = Request.QueryString("Res")'sorting string from top of html
        strSort = Request.QueryString("Show")'sorting string at bottom of html
        strName = Request.QueryString("Name")'search criteria by name
       
        sql = "Select * FROM Resume Order by " & strQuery

        if strQuery <> "" then
                select case strQuery
                        case "Last"
                                rs.Open sql, conn
                        case "First"
                                rs.Open sql, conn
                        case "Email"
                                rs.Open sql, conn
                        case "DateAdded"
                                rs.Open sql, conn
                        case "Reviewed"
                                rs.Open sql, conn
                        case "Actv"
                                rs.Open sql, conn
                        case "Email"
                                rs.Open sql, conn
                end select
        end if
               
        if strSort <> "" then
                select case strSort
                        case "ActiveOnly"
                                sql2 = "Select * FROM Resume WHERE " & "Actv='" & "Yes" & "'"
                                rs.Open sql2, conn
                        case "InActiveOnly"
                                sql2 = "Select * FROM Resume WHERE " & "Actv='" & "No" & "'"
                                rs.Open sql2, conn
                        case "ReviewedOnly"
                                sql2 = "Select * FROM Resume WHERE " & "Reviewed='" & "yes" & "'"
                                rs.Open sql2, conn
                        case "NotReviewedOnly"
                                sql2 = "Select * FROM Resume WHERE " & "Reviewed='" & "no" & "'"
                                rs.Open sql2, conn
                end select
        end if

---

I hope you don't mind me responding with a non-answer ( some people may now not look at the post because there is already a reply) but I just thought I'd mention that your code

Code:

---

        if strQuery <> "" then
                select case strQuery
                        case "Last"
                                rs.Open sql, conn
                        case "First"
                                rs.Open sql, conn
                        case "Email"
                                rs.Open sql, conn
                        case "DateAdded"
                                rs.Open sql, conn
                        case "Reviewed"
                                rs.Open sql, conn
                        case "Actv"
                                rs.Open sql, conn
                        case "Email"
                                rs.Open sql, conn
                end select
        end if

---

can be shortened to

Code:

---

        if strQuery <> "" then
                select case strQuery
                        case "Last", "First", "Email", "DateAdded",  "Reviewed", "Actv",  "Email"
                                  rs.Open sql, conn
                end select
        end if

---

or even

Code:

---

        if strQuery <> "" rs.Open Then
                    sql, conn
        end if

---

if there are no values that you want to exclude other than spaces.

MartinLiss that was GREAT!!!! Thank you!!!

Your welcome. I typed the code directly into the "Your Reply:" forum window and there is a typo. The third part of the code should be of course

Code:

---

        if strQuery <> "" Then
                    rs.Open  sql, conn
        end if

---

right thanks