<%
Function complex(metin)
If metin = "" Then Exit Function
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))
xstletter = replace(xstletter,"i","İ", 1, -1)
xmetin = right(xmetin, Len(xarr(i)) - 1)
xmetin = replace(xmetin,"İ","i", 1, -1)
xmetin = xstletter & xmetin
End If
zmetin = zmetin & " " & xmetin
Next
End If
complex = zmetin
End Function
%>
Bu fonksiyonu her projemde kullanıyorum tavsiye ederim.