Radbrytningsfunktion strular om texten innehåller en URL

   Function FixChar(Str)
    Str = Replace(Str,VbCrLf,VbCrLf&" <br> ")
	Str = Replace(Str,"'", "''")
	Str = Replace(Str,"|", "")

    HyperArray = Split(Str)
    For Each Link in HyperArray
     If Len(Link) > 7 Then
      If Lcase(Left(Link,7)) = "http://" Then
	  If Len(Link) > 30 Then
    	Link2 = Left(Link, 26) & "..." & Right(Link, 10)
		else
		link2 = link
		End If
       Str2 = Str2 & "<a href="""& Link &""">"& Link2 &"</a> "
      ElseIf InStr(Link,"@") > 1 Then
       Str2 = Str2 & "<a href=""mailto:"& Link &""">"& Link &"</a> "
      Else
       Str2 = Str2 & Link &" "
      End If
     Else
      Str2 = Str2 & Link &" "
     End If
    Next
    FixChar = Str2
    Str2 = ""
    End Function

'##Radbrytning efter 45 bokstäver i rad, utan mellanrum
Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString
intMaxLength = 45
arrString = Split(OriginalString, " ")
For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If
strNewString = strNewString & arrString(intIndex) & " "
Next
Strang = strNewString
End Function

Och jag skriver ut texten så här:

<%=Smileyreplace(fixChar(strang(rs("svar"))))%>

Problemet uppstår då en URL ska skrivas ut, adressen blir då såhär:http://spaceflightnow.com/news/n0108/26xss11/<br>xss11.jpg<br> vilket blir lite knasigt.

Jag vill alltså inte att den ska köra radbrytning på ord som innehåller http://

Radbrytningen har jag för att förhindra sabotage i tabellens utseende..

Nån som har några förslag?

Mvh

//G8