<%
Function complex(metin)
splitter = " "
If metin <> "" Then
xarr = Split(metin, splitter)
For i = 0 to Ubound(xarr)
xmetin = Trim(xarr(i))
If xmetin <> "" Then
xmetin = Lcase(xmetin)
xstletter = Ucase(Left(xmetin,1))
'// You can add here your language characters
xstletter = Replace(xstletter,"i","İ", 1, -1) 'Ý
xmetin = Right(xmetin, Len(xarr(i)) - 1)
'// You can add here your language characters
xmetin = Replace(xmetin,"İ","i", 1, -1) 'Ý
xmetin = xstletter & xmetin
End if
zmetin = zmetin & " " & xmetin
Next
End if
complex = zmetin
End Function
%>