Kun sortering i en retning?

Har flettet følgende kode sammen, men den vil kun fra DESC til ASC og ikke omvendt. For mig at se skifter den til det modsatte i if-sætningen.

<%

Dim ID

if request.querystring("pn") = "" then
ID = request.form("pn")
else
ID = request.QueryString("pn")
end if


select case ID
case "1"
postnr = 1000
postnr2 = postnr + 1000
case "2"
postnr = 2000
postnr2 = postnr + 1000
case "3"
postnr = 3000
postnr2 = postnr + 1000
case "4"
postnr = 4000
postnr2 = postnr + 1000
case "5"
postnr = 5000
postnr2 = postnr + 1000
case "6"
postnr = 6000
postnr2 = postnr + 1000
case "7"
postnr = 7000
postnr2 = postnr + 1000
case "8"
postnr = 8000
postnr2 = postnr + 1000
case "9"
postnr = 9000
postnr2 = postnr + 1000
case "0"
postnr = 0
postnr2 = postnr + 10000
end select

order = Request.querystring("order")
if lcase(order) = "desc" OR order = "" then
  order = "ASC"
  nyorder = "DESC"
else
  order = "DESC"
  nyorder = "ASC"
end if
kolonne = Request.querystring("kol")
select case Cstr(""&kolonne)
case "1"  strkolonne = "navn"
case "2"  strkolonne = "post"

case else
  strkolonne = "navn"
end select

str = "select * from stald where post between " & postnr & " and " & postnr2 & " ORDER BY " & strkolonne & " " & order & ";"



Response.write "<a href=""?kol=1&pn=" & ID & "&order="
if strkolonne = "navn" then
  Response.write nyorder
else
  Response.write "ASC"
end if
Response.write """>navn</a><br>"

Response.write "<a href=""?kol=2&pn=" & ID & "&order="
if strkolonne = "post" then
  Response.write nyorder
else
  Response.write "ASC"
end if
Response.write """>postnr</a>"
%>