31/05/2003, 19:02
|
 | | | Fecha de Ingreso: marzo-2002
Mensajes: 60
Antigüedad: 22 años, 11 meses Puntos: 0 | |
| <%
Function cutString(strTexto,intNum,strFormato)
Dim intVal, intFim, intPos
intVal = Len(strTexto)
If intVal > intNum Then
intPos = InStr(intNum, strTexto, " ")
intFim = Left(strTexto, intPos) & strFormato
Else
intFim = strTexto
End If
If intFim = strFormato Then
intNum = intNum / 2
intPos = InStr(intNum, strTexto, " ")
intFim = Left(strTexto, intPos) & strFormato
End If
cutString = intFim
End Function
%>
como usarlo
<% Frase= RS("Coluna")%> <%Response.Write cutString(Frase,150,"...")%> |