Hakan Şen

<%

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) 'Y

          xmetin = Right(xmetin, Len(xarr(i)) - 1)

               '// You can add here your language characters

               xmetin = Replace(xmetin,"İ","i", 1, -1) 'Y

          xmetin = xstletter & xmetin

     End If

          zmetin = zmetin & " " & xmetin

     Next

End If

complex = zmetin

End Function

%>

<%=complex("heLLo")%>