paginação alfabetica

Ola galera estou com uma paginação alfabetica, e gostaria de colocar cor nos fundos de cada letras

assim

/applications/core/interface/imageproxy/imageproxy.php?img=http://www.shopcolina.com.br/cadastro_clientes/imagens/alfabeto.png&key=2ea299e759465a38ccf9fae438d2da488f8e968786b6ee2093daa2e64103ac95" alt="alfabeto.png" />

e as letras com conteúdos ficam em negrito e selecionadas qnd clicar

estou usando essa paginação

Paginação.asp

<%

registros = 20

' Definindo o caminho do banco de dados

caminho = "dados/Dados2014.mdb"

' Fazendo a conexão com o banco de dados (paginacao.mdb)

set objconn = Server.CreateObject("ADODB.Connection")

DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dados/Dados2014.mdb")

objconn.Open DSN

' String SQL para consulta

letra = Request.QueryString("letra")

If letra = "" Then

letra = "A"

SQL = "Select * FROM Clientes WHERE empresa LIKE 'A%' Order by empresa ASC"

Else

SQL = "Select * FROM Clientes WHERE empresa LIKE '"&letra&"%' Order by empresa ASC"

End If

' Abrindo o registro

SET objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem

' Senão lista os registros

If objRS.EOF Then

Response.Write "Sem clientes cadastrados iniciando com esta letra!"

Response.Write("<a href=javascript:history.back(-1)><br><br>Voltar</a>")

Response.End()

End If

' Definindo o número de registros por página

objRS.PageSize = registros

' Recupera o valor da variável pagina

pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira

' Senão a variável pagina recebe o valor da página corrente, definida acima

If pagina = "" Then

objRS.AbsolutePage = 1

pagina = 1

Else

objRS.AbsolutePage = pagina

End If

%>

<%letras = "0-9ABCDEFGHIJKLMNOPQRSTUVXYZ"%>

<%For i = 1 to 35%>

	<%="<a href=Clientes.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a> "%>

	<%Next%>

<table width="190" border="0" cellspacing="5" cellpadding="5">

 <tr> <%While Not objRS.EOF AND x < objRS.PageSize

 x = x + 1

q = q + 1

%>

 <td>

<table width="190" border="0" cellspacing="0" cellpadding="0"style="border-top: 3px solid #00ab22">

 <tr background="imagens/spiral.png"

onmouseover="this.style.backgroundImage='url(imagens/spiral2.png)';"

onmouseout="this.style.backgroundImage='url(imagens/spiral.png)';">

 <td style="border-bottom: 2px solid #ccc;border-left: 2px solid #ccc;border-right: 2px solid #ccc">

 <table width="189" border="0" cellspacing="0" cellpadding="0">

 <tr>

 <td colspan="2"><font size="4" color="#333333" face="Allan">  <%=objRS("cliente")%></font></td>

 </tr>

 <tr>

 <td colspan="2">

 <div align="center">

<font size="1" color="#333333" face="verdana">

<%=objRS("site")%></font>

</div>

 </td>

 </tr>

 <tr>

 <td width="22"><div align="center"><img src="IMAGENS/phone.png" width="16" height="13" /></DIV></td>

 <td width="177"> </td>

 </tr>

 <tr>

 <td> </td>

 <td> </td>

 </tr>

 </table></td>

 </tr>

 <tr>

 <td valign="top">

 <div align="center">

 <img src="IMAGENS/shadow.png" width="190"/>

 </div>

 </td>

 </tr>

</table>

</td><% If q = 4 Then %>

 </tr>

 <tr><%

 q = 0

 End If

objRS.MoveNext

Wend

%>

 </tr>

 </table>

<br/><br/>

 </div>

 <%

' Fecha e destroi os objetos RS e conn

objRS.Close : objconn.Close

Set RS = Nothing : Set objconn = Nothing

%>

</body>

</html>