Tjek om der findes et ord i streng der er længere end 25 tegn

If Len(Keyword) > 25 Then
Response.Write "Max 25 tegn"
end if

OrdiAlt = Split(Request.Form("Din Form"))

For Each Word In OrdiAlt
    If Length(Word) >= 25 Then
    Response.Write "Der er et ord i teksten, der er over 25 tegn"
    End If
Next


Det er ikke sikkert den virker...

Sorry Len(Word)

Lavede lige nogle fejl:

OrdiAlt = Split(Request.Form("Din Form"), " ")

For Each Word In OrdiAlt
    If Len(Word) >= 25 Then
    Response.Write "Der er et ord i teksten, der er over 25 tegn"
    End If
Next

Function cutOrd(Ord)
    If len(Ord) >= 25 Then
      Dim intlenght, intcount
      intlenght = len(Ord)
      intcount = 1
      int25 = 25
      Do while intcount <= intlenght
      cutOrd = cutOrd + Mid(Ord, intcount, int25) & "<br>"
      intcount = intcount + 50
      int25 = int25 + 25
      Loop
    Else
        cutOrd = Ord
    End If
End Function

Ord can be equal to a Ord or to a recordset field like this: cutOrd(rs("Ord")).

Len tar også med mellomrum. Ikke kun 25 tegn.

mortency---> Det var godt nok en besværlig måde at gøre det på!

Perfekt - tak for hjælpen 2-maz!.

så lidt...