Trimming Words

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)

 

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