Loop med alfabetet

Jeg har en menu som ser således ud

<a href="A">Menu A</a>
<a href="B">Menu B</a>
<a href="C">Menu C</a>
<a href="D">Menu D</a>

Jeg vil så med min database udskrive hvor mange poster der er i en tabel hvor ordet i en post starter med A

set ANTAL_A = Conn.Execute("select count(*) as antal from fonts where left(navn,1) = 'A' ")
antal_A = ANTAL_A("antal")

Og det vil jeg selvfølgelig med alle A, B, C, D menuerne.

Men vil ikke lave det sådan her:

set ANTAL_A = Conn.Execute("select count(*) as antal from fonts where left(navn,1) = 'A' ")
antal_A = ANTAL_A("antal")

set ANTAL_B = Conn.Execute("select count(*) as antal from fonts where left(navn,1) = 'B' ")
antal_B = ANTAL_B("antal")

set ANTAL_C = Conn.Execute("select count(*) as antal from fonts where left(navn,1) = 'C' ")
antal_C = ANTAL_C("antal")

set ANTAL_D = Conn.Execute("select count(*) as antal from fonts where left(navn,1) = 'D' ")
antal_D = ANTAL_D("antal")


Det gir rigtig rigtig rigtig rodet kode, er der ikke en nemmere måde at gribe det an på ved hjælp af loop ?