Forkert linieskift i formatering af linier med scritp

Jeg har fundet nedenstående kode her på sitet.
Jeg har det problem at den laver nogle mærkelige linieskift, i en tekstreng med <BR>´s:

Kode:

txt = Cstr(rsIndhold("tekst"))

  dim L,p,A
  const LL=56, br="<BR>"

  'Nu fjernes overflødige blanktegn
  L=0
  while L<>len(txt)
    L=len(txt)
  txt=replace(txt,"  "," ")
  wend

  'teksten deles op k ord
  A=split(txt," ")

  'Der sættes lineskift og blanktegn på ordene de rigtige steder
  L=0
  for p=0 to Ubound(A)
    L=L+len(A(p))
    if p>0 then L=L+1
    if L>LL then
    L=len(A(p))
    A(p)=br & A(p)
    elseif p>0 then
      A(p)=" " & A(p)
    end if
  next

  'Teksten samles igen
  Formater=join(A,"")
response.write(Formater)


Teksten der skal formateres:

Mandag og torsdag fra kl. 08.00-17.30<BR>
Tirsdag og fredag fra kl. 08.00-14.00<BR>
Onsdag fra kl. 08.00-16.00<BR>
<BR>
Telefonen er åben hele dagen

Det jeg får efter formateringen ser således ud:

Mandag og torsdag fra kl. 08.00-17.30
Tirsdag og
fredag fra kl. 08.00-14.00
Onsdag fra kl.
08.00-16.00

Telefonen er åben hele dagen


er der nogle der kan se hvad problemet er ???