Denne her virker således at er der under 10 tegn skriver der ikke ... og ved over 10 tegn skrives ...
'viser 10 første tegn + ... i beskrivelsen, hvis der er over 10 tegn
If Len(rs("titel")) > 10 Then If Right(Left(rs("titel"),13),1) = " " Then strtitel = (Left(rs("titel"),12) & "...") Else strtitel = (Left(rs("titel"),13) & "...") End If end if
If Len(rs("titel")) > 9 Then strtitel = (Left(rs("titel"),7) & "...") ELSE strtitel=rs("titel") end if
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.