sakregister

hej!
hur gör man ett register från A till Ö där man placerar in alla poster från ett rs under resp begynnelsebokstav?
Även om det inte nödvändigtvis finns poster på alla bokstäver vill jag trots detta att den bokstaven visas...

ex.

A
apa
alm

B

C
citron

D
däggdjur

osv..

tack på förhand

set rs = connect.execute("select sak from t order by sak")
letter = "A"
do while true
    response.write letter & "<br>"
    do while not rs.eof
         if  letter <> ucase(left(rs("sak"),1)) then exit do
         response.write rs("sak") & "<br>"
         rs.movenext
    loop
    response.write "<br>"
    if letter < "Z" then 
       letter = chr(asc(letter) + 1)
    elseif letter = "Z" then
       letter = "Å"
    elseif letter = "Å" then
       letter = "Ä"
    elseif letter = "Ä" then
       letter = "Ö"
    else
       exit do
    end if
loop

Nationell anpassning, nu även med stöd för ÅÄÖ

Så man kan loopa igenom alfabetet med:

chr(asc(letter) + 1)

Jag har gått och funderat på det ett tag. Tack så mycket!