Hvorfor sorter den ikke rigtig?

Jeg har denne kode, som skulle sortere indholdet i alfabetisk orden. Men den sorter, men ikke i alfabetisk orden (Der er intet system i sorteringen):


Response.Write "<font face='verdana,helvetica, arial' size='2'><a href='list.asp'>Kurser</a> > " & emne & "<br>Tryk på et hold for at se mere information om holdet:<br><br>"


ch="+"
tael=0

while not rs.eof
     
    strTitel = rs("Titel")
    strID = rs("ID")

  nych= Left(strTitel,1)
  if nych<>ch then
    if ch<>"+" then
      if tael=5 then
        response.write "<br>"
        tael=0
      else
        response.write "<br>"
      end if
    end if
    ch=nych
    tael=tael+1



end if
strLink = "<a href='default.asp?id=" & strID & "'>" & "<font face='verdana,helvetica,arial' size='2' color='#63697B'><b><img src='mere.gif' border='0'>" & " " & strTitel & "</font><br>"
Response.Write strLink
rs.MoveNext
wend