Captilize First Letter of Every Word in a String:
Click here
to test this script.
Code:
Highlight
<% function formatCaps(strData) dim strArray, i if not strData = "" then strArray = split(trim(strData)," ") for i = 0 to ubound(strArray,1) strData = trim(strArray(i)) if not isNumeric(strData) and len(strData) > 0 then strData = ucase(left(strData,1)) & lcase(right(strData,len(strData)-1)) end if Response.Write (strData) & " " next end if end function %>