<% Dim body body = "Isim & Soyad:  " & request.Form("ad") & "
" body = body & "Ünvan:  " & Request.Form("unvan") & "
" body = body & "Sirket:  " & Request.Form("sirket") & "
" body = body & "E-Posta:  " & Request.Form("email") & "
" body = body & "Tel:  " & Request.Form("tel") & "
" body = body & "Fax:  " & Request.Form("fax") & "
" body = body & "Mesajiniz:  " & Request.Form("mesaj") & "
" Set objEMail = Server.CreateObject("CDO.Message") objEmail.BodyFormat = 0 objEmail.MailFormat = 0 objEmail.From = "info@triat.com.tr" objEmail.To = "info@triat.com.tr" objEmail.Subject = "Iletisim Formu" objEmail.HtmlBody = body objEmail.Send If err.number = 0 then response.Redirect("result.html") else response.write "hata" End if Set objEmail = Nothing %>