<%@ Language=VBScript %>
<% 
function donustur(text) 
donustur = Server.URLEncode(text) 
donustur = replace(donustur, "%C3%87", "Ç") 
donustur = replace(donustur, "%C3%A7", "ç") 
donustur = replace(donustur, "%C4%B0", "İ") 
donustur = replace(donustur, "%C4%B1", "ı") 
donustur = replace(donustur, "%C5%9E", "Ş") 
donustur = replace(donustur, "%C5%9F", "ş") 
donustur = replace(donustur, "%C4%9E", "Ğ") 
donustur = replace(donustur, "%C4%9F", "ğ") 
donustur = replace(donustur, "%C3%9C", "Ü") 
donustur = replace(donustur, "%C3%BC", "ü") 
donustur = replace(donustur, "%C3%96", "Ö") 
donustur = replace(donustur, "%C3%B6", "ö") 
donustur = replace(donustur, "+", " ") 
donustur = replace(donustur, "%26", "&") 
donustur = replace(donustur, "%40", "@") 
donustur = replace(donustur, "%2C", ",") 
donustur = replace(donustur, "%3F", "?") 
donustur = replace(donustur, "%2E", ".") 
donustur = replace(donustur, "%27", "'") 
donustur = replace(donustur, "%21", "!") 
donustur = replace(donustur, "%2B", "+") 
donustur = replace(donustur, "%2F", "/") 
donustur = replace(donustur, "%28", "(") 
donustur = replace(donustur, "%29", ")") 
donustur = replace(donustur, "%3D", "=") 
donustur = replace(donustur, "%2A", "*") 
donustur = replace(donustur, "%2D", "-") 
donustur = replace(donustur, "%5F", "_") 
donustur = replace(donustur, "%0D", " ") 
end function 
%>

<%
Response.Buffer = true

Dim myMail, mtextz, mtext01, mtext02, mtext03

mtext01 = "Name:" & donustur(Request.Form("names")) & vbcrlf 
mtext02 = "Email:"  & donustur(Request.Form("email")) & vbcrlf
mtext03 = "Comments: " & donustur(Request.Form("comments"))  & vbcrlf

mtextz = mtext01 &  mtext02 &  mtext03 

Set myMail = CreateObject("CDONTS.NewMail")

if request.Form("email") = "" then 
	myMail.From = "No name"
	else
	myMail.From = request.Form("email")
end if

myMail.To = "celljuke@yahoo.com"
myMail.MailFormat = 1
myMail.Body = mtextz
myMail.Send
Set myMail = Nothing
Response.write "merhabaaa"
%>