registros y vbs

[marcombo]

Saludos, tengo que pasar una campo de un recorset a una funcion realizada en vbScript, para que me retorne un fragmento de este campo que es una cadena.

El mensaje que me da es de 'No coinciden los tipos', como lo pueden solucionar.

Gracias de antemano.

El código es el siguiente:
la funcion en vbScript es la siguiente:

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:
<td width="330"><font size="+2" face="Georgia, Times New Roman, Times, serif"></a><strong><a name=<%response.Write(crearAncla(rsTipo("nombreTip oProducto")))%>></a> <% response.Write(rsTipo("nombreTipoProducto")) %></strong></font></td>

Para crear un ancla pero me da el mensaje
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'crearAncla'