<% AdSoyad = Trim(request.form("adsoyad")) SirketUnvani = Trim(request.form("sirketunvani")) EMail = Trim(request.form("email")) Telefon = Trim(request.form("telefon")) Adres = Trim(request.form("adres")) OrjmetinDili = Trim(request.form("orjmetindili")) CevrilecekDil = Trim(request.form("cevrilecekdil")) CeviriMetni = Trim(request.form("cevirimetni")) %> <% strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" strEmailStart=strEmailStart & "" Dim objMail Set objMail = CreateObject("CDONTS.Newmail") objMail.TO = "tumdiller@gmail.com" 'Buraya Sizin Mail Adresiniz. objMail.From = Request.Form("email") objmail.Subject = "Online Teklif Sayfasından Gelen Mail" 'Mail Başlığı Buraya objMail.MailFormat = cdoMailFormatMime objMail.BodyFormat = cdoBodyFormatHTML objMail.Body = strEmailStart objMail.send set objMail = Nothing %> <% Response.Redirect("gonder.asp") %>

İsim&Soyisim:	"& Request.Form("adsoyad") & "
Şirket Ünvanı:	"& Request.Form("sirketunvani") & "
E-Mail:	"& Request.Form("email") & "
Telefon:	"& Request.Form("telefon") & "
Adres:	"& Request.Form("adres") & "
Orjinal Metin Dili:	"& Request.Form("orjmetindili") & "
Çevrilecek Dil:	"& Request.Form("cevrilecekdil") & "
Çeviri Metni:	"& Request.Form("cevirimetni") & "