Liste starter med det sidste tal hvordan ændre jeg dette?

hej jeg har dette asp script det hiver nogle informationer ud af en database:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("mon.mdb")
Conn.Open DSN

strSQL = "Select * From mon Order by ID Desc"
Set rs = Conn.Execute(strSQL)

Do
  ' Personens navn
  strName = rs("PID") & " " & rs("Name")

  ' lav et link til mon.asp med Id-værdien i URL
  strLink = "<a href='mon.asp?id=" & rs("ID") & "'>" & strName & "</a>"

  ' Liste med links
  Response.Write "<li>" & strLink & "</li>"

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

det laver en liste, men problemet er at hvis vi nu siger at der er 5 tal, så spytter den dette ud:

5
4
3
2
1

men jeg vil gerne have det til at se sådan her ud:

1
2
3
4
5

nogle der kan hjælp mig, og hvis ikke forstår hvad jeg mener så bare skriv.