<%
Function EmailDuzelt(Str)
Str = LCase(Str)
Str = Replace(Str , "g" , "g" )
Str = Replace(Str , "ü" , "u" )
Str = Replace(Str , "s" , "s" )
Str = Replace(Str , "i" , "i" )
Str = Replace(Str , "ö" , "o" )
Str = Replace(Str , "ç" , "c" )
Str = Replace(Str , "G" , "g" )
Str = Replace(Str , "Ü" , "u" )
Str = Replace(Str , "Ş" , "s" )
Str = Replace(Str , "I" , "i" )
Str = Replace(Str , "Ö" , "o" )
Str = Replace(Str , "ç" , "c" )
EmailDuzelt = Str
End Function
Email = "ADINIZ@HOTMAIL.COM"
Response.Write EmailDuzelt(Email)
%>