paginação alfabetica

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

assim 

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>