vis uddrag af artikel

<%
Function DisplayNumWords(strData, numWords)
    ShortBody = ""
    SplitBody = Split (strData," ", (numWords)+1)
    For i = 0 to (UBound(SplitBody)-1)
        ShortBody = ShortBody & SplitBody(i) & " "
    Next
    DisplayNumWords = ShortBody
End Function       
%>

og

<%=DisplayNumWords((rsNyhed.Fields.Item("DitDBfelt").Value),15)%>

Kunne du ikke finde index på det ex. 15. mellemrum og så herefter lave en substring ud fra det ?

normalt arbejder man ud fra antal tegn da nogle ord er korte og andre meget lange - og koden dertil er;

<%
  Response.Write "uddrag: " & left(rs("fintabel"),60) & "...<br />læs mere"
%>

Tak keysone hvade ikke regnet med en så simpel løsning. Havde jeg brugt mere tid havde jeg nok fundet den løsning selv, men igen tak. Du sparede mig for en del arbejde.
/sxkp

Spørgsmålet er lukket.