første 20 ord fra felt

Du kan bruge denne funktion:

strInputText = "Dette er min tekst!"
Response.Write GetWordCount(strInputText)
Function GetWordCount(strInput)
    Dim strTemp

    ' Deal with tabs and carriage returns
    ' by replacing them with spaces.
    strTemp = Replace(strInput, vbTab, " ")
    strTemp = Replace(strTemp, vbCr, " ")
    strTemp = Replace(strTemp, vbLf, " ")

    ' Remove leading and trailing spaces
    strTemp = Trim(strTemp)

    ' Combine multiple spaces down to single ones
    Do While InStr(1, strTemp, "  ", 1) <> 0
        strTemp = Replace(strTemp, "  ", " ")
    Loop

    ' Get a count by splitting the string into an array
    ' and retreiving the number of elements in it.
    ' I add one to deal with the 0 lower bound.
    GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1
End Function ' GetWordCount

wordCount = 20
tabelStreng = "bla bla bla......"
StrengArray = split(tabelStreng)
ouputStreng = ""
For i=0 To wordCount-1
  outputStreng = outputStreng & StrengArray(i)
Next

denne tager dog ikke højde for hvis der er under 20 ord i dit felt.

ups, i stedet for 'ouputStreng = ""' skal der jo stå 'outputStreng = ""'

og i næstsidste linie havde jeg glemt mellemrum mellem ordene. Der skal stå:

outputStreng = outputStreng & " " & StrengArray(i)

Hvis du ikke ved hvordan man får et felt ud fra databasen må du jo sige til.

Denne tager højde for flere/færrer ord pr linie.

inputStr = rs("Kolonne_Fra_Database")
MAX_WORD_COUNT = 20
wordCount = 0
newArr = split(inputStr," ")
outputStr = ""
do while (wordCount < UBOUND(newArr)) AND (wordCount < MAX_WORD_COUNT)
  outputStr = outputStr & newArr(wordCount) & " "
  wordCount = wordCount + 1
loop

Response.Write outputStr

det blev den eagleeye gav mig der blev brugt takker for hjælpen.