Problema para Exibir Function de 3 Pontinhos, erro Internal Server Error

Olá.

Eu uso uma função de fazer 3 pontinhos, que funciona perfeitamente num servidor com Windows Server 2003.

Porém estou tentando rodar a mesma função no WindowsServer 2012 e dá erro quando mando exibir.

function pontinhos(palavra,numero)
 if len(palavra) > numero then
 texto = left(palavra,numero)
 procura = instrrev(texto,chr(32))
 pontinhos = left(texto,cint(procura) - 1) & "..."

else
pontinhos = palavra
end if
end function

'Exibir
response.write pontinhos(var_mensagem("mensagem"),30)

Quando adiciono a linha para exibir, vem o erro.

Se mando exibir a variável sem a function exite normal o texto cheio, mas quando mando exibir pela function dá erro.

"Internal Server Error"

Esse meu servidor é da GoDaddy.

Abraços!

Fábio!