jejejeje... ya encontré la solución:
<%
xtitulo = trim(oRS("titulo"))
for i = 97 to 122
xtitulo = Replace(xtitulo, chr(i), "["&chr(i)&"]")
next
for i = 97 to 122
xtitulo = Replace(xtitulo, "["&chr(i)&"]", "<img src='images/letras/"&chr(i)&".jpg'>")
next
%>
<%
xtitulo = trim(oRS("titulo"))
for i = 97 to 122
xtitulo = Replace(xtitulo, Ucase(chr(i)), "["&Ucase(chr(i))&"]")
next
for i = 97 to 122
xtitulo = Replace(xtitulo, "["&Ucase(chr(i))&"]", "<img src='images/letras/"&Ucase(chr(i))&".jpg'>")
next
%>
GRACIAS IGUAL A TODOS Y MIL DISCULPAS POR HACERLOS LEER POR GUSTO, PERO A LA VEZ PUEDE SER Q A ALGUIEN LE INTERESE ESTE CÓDIGO...ESPERO
