Alfabetisk liste efter forbogstav

Jeg har fundet denne kode her på eksperten og den virker helt som den skal (eller næsten da).
# skal vise tal og den slags, men når man klipper på den så bliver alle poster vist også den med bogstaver, men hvis der ikke er nogle tal i db'en så er # ikke aktiv og man kan derfor ikke trykke på den.
Hvad skal jeg gøre for at få # til kun at vise tal og tegn ???

Dim strCharList, strSelectedCharList
strCharList    = "#ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ"
strSQL      = "SELECT DISTINCT(Left(pDanish_title, 1)) FROM products where pCategory=" & Request.Querystring("c") & "" 

arrCharList = ConnMain.Execute(strSQL).GetRows() 
For intCharNumb = 0 TO UBOUND(arrCharList, 2)

  strChar    = UCASE(arrCharList(0, intCharNumb))
 
  If NOT Instr(strCharList, strChar) > 0 Then strChar = "#"
  strSelectedCharList  = strSelectedCharList & strChar
Next

For intCharNumb = 1 TO LEN(strCharList)

  strChar    = Mid(strCharList, intCharNumb, 1)
 
  If Instr(strSelectedCharList, strChar) > 0 Then
    strChar    = "<a href=""?c=" & Request.Querystring("c") & "&ch=" & strChar & """>" & strChar & "</a>"
  End If
 
  Response.Write "<font color='gray'>" & strChar & "</font> "
Next