<%
 function cutOff(chkString,sNum)
 'Is the string empty?
 if IsNull(chKString) = False And chkString > sNum Then
 strTot = Len(chkString)
 'Eliminate blank spaces off the end, nee
 ' ded for SQL 6.5
 While Right(chkString, 1) = " "
 chkString = Left(chkString, strTot - 1)
 strTot = Len(chkString)
 Wend
 'Cut it down
 chkString = Left(chkString, sNum)
 'One last check for blank spaces
 if Right(chkString, 1) = " " Then
 chkString = Left(chkString, sNum - 1)
 End if
 'Indicate truncation
 if Len(chkString) <> strTot Then chkString = chkString & "..."
 'Return string
 cutOff = chkString
 End if
 End function
 %>