View: - 126
<% ' Syntax: ProperCase(string) Function ProperCase(sString) Dim sWhiteSpace, bCap, iCharPos, sChar sWhiteSpace = Chr(32) & Chr(9) & Chr(13) & "'" sString = LCase(sString) bCap = True For iCharPos = 1 to Len(sString) sChar = Mid(sString, iCharPos, 1) If bCap = True Then sChar = UCase(sChar) End If ProperCase = ProperCase + sChar If InStr(sWhiteSpace, sChar) Then bCap = True Else bCap = False End If Next End Function %>
