<% 'response.end Dim MyMail,SendMessage,ToMailAddress SendMessage = "" ToMailAddress = "agosan@agosan.com.tr" mailBody = "
" & _ "
E-MAİL BİLGİLERİ
" & _ "
" & _ "
"& _ "
Tarih
" & _ "
:
" & _ "
Ad Soyadı
" & _ "
:
" & _ "
Mail Adresi
" & _ "
:
" & _ "
Telefon Numarası
" & _ "
:
" & _ "
Mesajı
" & _ "
:
" & _ "
" & _ "
" & _ "
" & _ "
" if (Request.ServerVariables("HTTP_METHOD") = "POST") then Set MyMail = CreateObject("CDONTS.NewMail") MyMail.From= Request("emailaddress") MyMail.To= ToMailAddress MyMail.Subject = "İletişim İsteği" MyMail.BodyFormat = 0 MyMail.MailFormat = 0 returnBody = Replace(mailBody,"
",now) returnBody = Replace(returnBody,"
",request("namesurname")) returnBody = Replace(returnBody,"
",request("emailaddress")) returnBody = Replace(returnBody,"
",request("phonenumber")) returnBody = Replace(returnBody,"
",request("custommessage")) 'returnBody = "Adı Soyadı : " & request("namesurname") & _ ' "
Mail Adresi : " & request("emailaddress") & _ ' "
Telefon Numarası : " & request("phonenumber") & _ ' "
Mesajı : " & request("custommessage") & " " MyMail.Body = returnBody MyMail.Send SendMessage = "
Mesajınız Başarıyla Gönderilmiştir.
" set MyMail=nothing End If %>
<%=SendMessage%>
Ad Soyadınız:
Mail Adresiniz:
Telefon Numaranız :
İletmek İstediğiniz Mesaj: