Problemas com Function

[asp.net 0]

Estou com esta função abaixo para cortar um texto e colocar ... depois do texto cortado mas estou com problemas porque ele não está retornando resultados, a coluna fica em branco para este campo.

 

Function editanome(nome)

Dim tamanho

tamanho = Len(nome)

if tamanho = 15 then

nome = Left(nome,15)&"..."

else

nome = nome

end if

end function

 

Estou chamando a função assim:

 

response.Write("<tr><td><a href='galeravb.asp?usuario="&vb("codigo")&"'>"&editanome(vb("us_nome"))&"</a></td><td>"&Ucase(vb("us_email"))&"</td><td>"&vb("us_estado")&"</td></tr>")

[Marhault 1]

Acho q é isso:

Function editanome(nome)Dim tamanhotamanho = Len(nome)if tamanho = 15 theneditanome = Left(nome,15)&"..."elseeditanome = nomeend ifend function

okZ?