Deling funktion

<%
\' Chopfunktion af Andreas Mailand - andreas@mailand.dk
\' Tak til Claes Andersen - webmaster@infonaut.dk
\' måden at bruge den på: Chop(streng, max tilladte længde inden break)
\' Fx Chop(streng, 10) vil maksimalt give en streng på længden 10 inden et break!

Function Chop(input, value)
Length = Len(input)
If Length > value Then
Break = Int(Length/value)
Rest = Length - Break*value
For a = 0 To Break-1
Chop = Chop & Mid(input, (a*value)+1, value) & \"<br>\"
Next
Chop = Chop & Mid(input, (Break*value)+1, Rest)
Else Chop = input
End If
End Function
%>