This code is used to capitalize the first letter of every word in a string passed as an argument. All you have to do is past the function code near the beginning of your script command and call the function using the command PropCase(String). Simple as that.
<%
Function PropCase(strTemp)
Dim intFound
Dim strTempName
Do
strTempName = strTempName & UCase(Left(strTemp, 1))
strTemp = Right(strTemp, Len(strTemp) - 1)
intFound = InStr(strtemp, " ")
If intFound <> 0 Then
strTempName = strTempName & Left(strTemp, intFound)
strTemp = Right(strTemp, Len(strTemp) - intFound)
Else
strTempName = strTempName & strTemp
Exit Do
End If
Loop While intFound <> 0
Response.Write strTempName
End Function
%>
Comments