<% 'CONTENT DEĞİŞTİRME dim yazi yazi = "" 'MAİL GONDERME if Request.Form("deger")<>1 then else 'strAlacakMail = Request.Form("alici")'Maili alacak olan strAlacakMail = "akdaglar@akdaglar.com.tr"'Maili alacak olan strYollayan= Request.Form("email")'Maili gönderen strBaslik = "Bilgi.org İrtibat Formu"'Mailin konusu strMesaj = "Ad: "+ Request.Form("ad") + "
Tel: " + Request.Form("tel") + "

" + Request.Form("mesaj")'Mailin içeriği smssend = true Set objYeniMail = Server.CreateObject ("CDONTS.NewMail") objYeniMail.BodyFormat = 0 objYeniMail.MailFormat = 0 on error resume next objYeniMail.Send strYollayan, strAlacakMail, strBaslik, strMesaj yazi = "

Mesajınız gönderildi. Teşekkürler.

" If Err <> 0 Then yazi = "

Bir hata oluştu.

" End if end if %> <%=yazi%>