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