quarta-feira, 27 de agosto de 2003

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...

0 comentários: