<%
'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 = "bilgi@bilgi.org"'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%> |
