ekstra linier

<%
inputStr = Replace(Trim(rs("tekst")) ,"'","")
reDim  arr(0)
str = replace(inputStr,"<br>", vbCrLf)
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, 55)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", 55)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")
%>   

dette script laver nogle ekstra linier og jeg kan ikke dreje det hvordan fjerner jeg de overflødene linier "1 linie i toppen og 2 linie i bunden"