<% FUNCTION short(s) while right(s,1) = " " s = left(s,len(s)-1) wend short = s end function %>