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 ÅÄÖ