table sorting

Dim sortOrder: sortOrder = request.querystring("sortOrder")
    Dim sortby: sortby = request.querystring("sortby")
 
    select case sortOrder
        case "asc"
           sortOrder = "desc"
        case "desc"
            sortOrder = "asc"
        case else
            sortOrder = "asc"
    end select
 
    strsql = "select from table "
 
If (len(sAlpha) > 0) Then _
    strsql = strsql  & " where "&sortby&" like '"&sAlpha&"%'"
 
if len(sortby) > 0 then _
    strsql = strsql  & " order by "&sortby&" " & sortOrder
 
 
<a href="<%=scriptName%>?sortby=email&user=<%=user%>&sortOrder=<%=sortOrder%>&alpha=<%=sAlpha%>&start=<%=iStart%>">Email Address</a> <% if (sortby = "email") then response.write "<span style=""color:red;"">*</span>" end if %>