ARGH....fejl i forkortelse af tekst

Er teksten skrevet som HTML eller som tekst med retur tegn i ??

det er html

Smid denne funktion ind i din kode:

<%
Function RemoveHTML( strText )
    Dim nPos1
    Dim nPos2
   
    nPos1 = InStr(strText, "<")
    Do While nPos1 > 0
        nPos2 = InStr(nPos1 + 1, strText, ">")
        If nPos2 > 0 Then
            strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
        Else
            Exit Do
        End If
        nPos1 = InStr(strText, "<")
    Loop
   
    RemoveHTML = strText
End Function
%>

Og skriv så:

<%
Tekst = RemoveHTML(rs("tekst"))
If len(Tekst ) > 163 Then
Tekst = left(Tekst ,160) & "..."
End if
%>

Mvh,

Thomas Regin

Det var et svar! ;)

:O)... jo men så forsvinder ALLE mine html-koder... det er jo ikke hensigten.