ProperCase function

This converts a string to proper case , this means every words first letter is capitalized .

Code :

<%
Function ProperCase(strInput)
Dim iPosition, iSpace ,strOutput
iPosition = 1
Do While InStr(iPosition, strInput, " ", 1) <> 0
iSpace = InStr(iPosition, strInput, " ", 1)
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
iPosition = iSpace + 1
Loop
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
ProperCase = strOutput
End Function
%>
<%= ProperCase("this is our sample string all in lower case") %>