Alfabetisk sitemap

Jeg skal have lavet et sitemap, der ordner siderne i alfabetiske kategorier, og har brug for en smart måde at loope på. Databasen er Access.

Sitemap'et skal se sådan ud:

A
Aftaler
Arrangementer

B
Bestyrelse
Brugsanvisninger
Bøger

etc.

Mit foreløbige script ser således ud:

<%
Dim letters, arrLetters
letters = "A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, Æ, Ø, Å"
arrLetters = Split(letters,",")
For t = 0 to 28
Next

set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("Pages.mdb")

SQL = "SELECT * FROM Page WHERE PageMenu LIKE '[A]%' ORDER BY PageMenu"
Set rs = Conn.Execute(SQL)
if not rs.EOF Then
Response.Write arrLetters(0)
END if
do while not rs.EOF
Response.Write "<br><a href=" & chr(34) & "Index.asp?ID=" & RS("PageID") & chr(34) & ">" & RS("PageMenu") & "</a>"
rs.Movenext
loop
 
rs.close 
Conn.Close
Set Conn = nothing 
  %>


Scriptet skriver alle sider ud, der begynder med A. Men for ikke at skulle gentage SELECT-sætningen for alle bogstaver, kan man så ikke lave en loop?