Mostrar apenas uma prévia da Notícia. Semelhante à Agestado

Esta função é apenas para retirar a prévia para por exemplo uma notícia.

PRIVATE CONST TAMANHO = 200

Function Previa(vstrTexto)

Dim strPrevia

if Len(vstrTexto) > TAMANHO Then

strPrevia = Mid(vstrTexto, 1, TAMANHO)

strPrevia = Mid(strPrevia, 1, InStrRev(strPrevia, " ") - 1) & "..."

Else

strPrevia = vstrTexto

End If

Previa = strPrevia

End Function

Esta matéria foi postada originalmente no ASP4Developers por Marcos Felisberto (site), que na época era "Desenvolvedor, com conhecimentos sólidos em ASP, Visual Basic, SQL Server. Iniciante em C# e .Net

MSNmarcos_felis@hotmail.com". Hoje, vai saber...