Udtræk fra mindste til største

man bliver nød til enten at overføre "Næste ID" eller "Viste ID". Jeg har på et tidspunkt lavet dette som laver forrige/næste links den finder de to ud fra det vist ID som den går via linket. Samt en katetegori, katID men det kan jo fejrnes:

Første gang man kommer ind på siden eller ID er tom kan det mindste ID findes med:

id = Request("id")
katID = Request("katid")

'Find første id hvis id er tom
if isnumeric(id) = false or id = "" then
  SQL = "SELECT min(ID) as minID FROM tabelnavn WHERE kategori = " & katID
  set rs = Conn.Execute(SQL)
  id  = rs("minID")
end if


'Vis posten med ID her:



'Find næste og forrige ID
SQL = "SELECT TOP 1 ID FROM tabelnavn WHERE kategori = " & katID & " AND ID > " & id
set rs = Conn.Execute(SQL)
nesteID = ""
if not rs.EOF then nesteID = rs("ID")

SQL = "SELECT TOP 1 ID FROM tabelnavn WHERE kategori = " & katID & " AND ID < " & id & " ORDER BY ID DESC"
set rs = Conn.Execute(SQL)
forrigeID = ""
if not rs.EOF then forrigeID = rs("ID")



'og så udskrive linksne:

if forrigeID = "" then
  Response.Write "Forrige "
else
  Response.Write "<a href=""?id=" & forrigeID & """>Forrige</a> "
end if

if nesteID = "" then
  Response.Write "Næste "
else
  Response.Write "<a href=""?id=" & nesteID & """>Næste</a> "
end if