Fra vandret tekst til lodret

Kan du ikke bare gøre det via af en sortering i SQL, og en function der checker om det første bokstav er ændret ?

Ala:

<%
\' conn til db før dette
strSQL = \"SELECT * FROM db ORDER BY Link;\"
set rs = MyConn.Execute(strSQL)

Bokstav = Left(rs(\"Link\"),1)
Response.Write \"<table>\"

while not rs.eof
  Response.Write \"<tr><td>\"
    if (Bokstav = Left(rs(\"Link\")) then
      Response.Write \"<a href=\"& rs(\"Link\") &\">\"& rs(\"Link\") &\"</a> - \"
      rs.MoveNext
    else
      Bokstav = Left(rs(\"Link\"))
      Response.Write \"</td></tr>\"
    end if
wend
Response.Write \"</table>\"

Jeg har ikke testet om det virker efter planen, og det er heller ikke den mest effektive måde at gøre det på! (Kunne optimeres ved at undgå at der kaldes til DB\'en mindre!)
Men var hvad jeg lige kunne komme på ! (Håber det var noget i den stil du skulle bruge !)