<% Function ReadMore(strSearchText, start) ' by Oliver Schnars ' start == when to start looking for a space If start = "" then start = 1 If (NOT InStr(start,strSearchText, " ") = 0) Then z = Instr(start,strSearchText," ") text = Left(strSearchText,z) ReadMore = text & " ...

" & "More" Else ReadMore = strSearchText End If End Function Function MakeShort(strSearchText,starter) ' by Oliver Schnars If (NOT InStr(starter,strSearchText, " ") = 0) Then z = Instr(starter,strSearchText," ") title = Left(strSearchText,z) MakeShort = title + " ..." Else MakeShort = strSearchText End If End Function %>