I am using <%=Content %>. How do I trim this field to show only 50 words and then ....?

 

Code: Function LengthTrim(input, length) If Len(input) > length Then Return Left(input, length) + "..." Else Return input End If End Function

 

I also used <%= LengthTrim(Content, 50) %>

I got the following error message:

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'Return'

 

 

 

However, I have decided that I would like to trim words after 4 paragraphs. How can I accomplish this? The end tags for paragraphs are </p>. Can someone please help me with this?

<%
     FUNCTION ParaTrim(input)
     intP = 0
     intL = 0
     FOR count = 1 to LEN(input)
          IF MID(input,count,4)="</p>" THEN
               intP=intP+1
               IF intP=4 THEN
                   intL=count
               END IF
          END IF
     NEXT
     IF intL>0 THEN
          ParaTrim = LEFT(input,intL-1) & "...."
     ELSE
          ParaTrim = input
     END IF
     END FUNCTION
%>

 

<%

%>

Option Explicit

Dim strStartPos
Dim strEndPos
Dim strLength
Dim strMaxLength
Dim strFullText
Dim strText
Dim strSearchString
Dim i

Sub Get4Paragraphs(strFullText)

 

 strSearchString = "</p>"
 strStartPos = 0
 strLength = 0
 strEndPos = 1
 
 strMaxLength = Len(strFullText)
 
 
 'In case we don't have 4 paragraphs
 On Error Resume Next 

 For i = 1 to 4
 'Find the end of the Paragraph
  If strEndPos <= strMaxLength then
   strStartPos = strEndPos
   strEndPos = instr(strStartPos, strFullText, strSearchString) + Len(strSearchString)
  End If
 Next
 
 'If there's an error, we probably didn't find 4 pararagraphs,
 'so we'll print everything we did find
 If Err <> 0 Then
  strEndPos = strMaxLength
  Response.write strMaxLength & "Error<br>"
 End if
 
 'Pluck the string out of the Original text
 Response.write mid(strFullText,1,strEndPos -1)

 

End Sub

 

'Mainline Code

 

strFullText = "<p>Paragraph 1</p><p>Paragraph 2</p><p>Paragraph 3</p><p>Paragraph 4</p><p>Paragraph 5</p>"

 

Get4Paragraphs(strFullText)

 

 

Thank you for the code! How do I apply it to <%= Content %>? This is the line of code that I want to apply the function to.

 

 

I am only guessing of course, but it seems to me the sub is not being found.  If you don't hear from dpyers soonish or get an answer on how to correct the problem, this script also works:

 

 

You would call it like <% =ParaTrim(content) %>

 

I used the following code:

 

     FUNCTION ParaTrim(input)
    
     Dim intP
     Dim intL
     Dim count
   

     intP = 0
     intL = 0
     FOR count = 1 to LEN(input)
          IF MID(input,count,4)="<p>" THEN
               intP=intP+1
               IF intP=4 THEN
                 intL=count
               END IF
          END IF
     NEXT
     IF intL>0 THEN
          ParaTrim = LEFT(input,intL-1) & "...."
     ELSE
          ParaTrim = input
     END IF
     END FUNCTION

 

I'm not getting an error message anymore. But it is not working right. All of the paragraphs for the first article on http://www.bethedenmbc.org/news.asp - http://www.bethedenmbc.org/news.asp are displayed on the web page. I want only 4 paragraphs and .... to show up. I'm not sure what's wrong. Can someone please help me with this?

 

The end tags are not </p>.  That is why the script is not working.  There is a <p> at the beginning of each paragraph only.  Need to search for <p> instead of </p>.  New code in a moment...

 

 

...try this instead:

 

        FUNCTION ParaTrim(input)
     intP = 0
     intL = 0
     FOR count = 1 to LEN(input)
          IF MID(input,count,3)="<p>" THEN
               intP=intP+1
               IF intP=5 THEN
               intL=count
               END IF
          END IF
     NEXT
     IF intL>0 THEN
          ParaTrim = LEFT(input,intL-1) & "...."
     ELSE
          ParaTrim = input
     END IF
     END FUNCTION