Bueno, el único problema que yo veo es que no estás asignando a ninguna variable el valor que te regresa la función...
function crearAncla(cadena)
dim longitud
cadena=trim(cstr(cadena))
longitud=len(cadena)
if (longitud>=5) then
cadena=ucase(left(cadena,5))
else
cadena=ucase(cadena & space(5-longitud))
end if
crearAncla=cadena
end function
pretende crear una cadena para colocarla como ancla, desde donde es llamada.
Ahora bien el codigo que lo llama es:
<%
texto_original= rsTipo("nombreTipoProducto")
cadena= crearAncla(texto_original)
%>
<td width="330"><font size="+2" face="Georgia, Times New Roman, Times, serif"></a><strong><a name=<%
response.Write(cadena)%> ></a>
<% response.Write(texto_original) %> </strong></font></td>
Salu2,