Help me Sort this out please!

[jesus4u]

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?

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

[MartinLiss]

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

	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

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

or even

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

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

[jesus4u]

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

[MartinLiss]

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

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

[jesus4u]

right thanks