MixedCase

<%
Function MixedCase(strInput)
Dim strPos, strSpace, strOutput
' Set our position variable to the start of the string.
strPosition = 1
' Loop to check spaces
Do While InStr(strPosition, strInput, " ", 1) <> 0
     strSpace = InStr(strPosition, strInput, " ", 1)
     strOutput = strOutput & UCase(Mid(strInput, strPosition, 1))
     strOutput = strOutput & LCase(Mid(strInput, strPosition + 1, strSpace - strPosition))
     strPosition = strSpace + 1
Loop
' Last word is currently uncapitalized - fix this
strOutput = strOutput & UCase(Mid(strInput, strPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, strPosition + 1))
MixedCase = strOutput
End Function
%>