Batı Yay | Dünyaya esneklik katıyoruz...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% if request.form("spy")="webcontactform" then set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("/inc/iletisim.htm")) mailhtm = act.readall mailhtm = replace(mailhtm,"{email}",temizle(request.form("email"))) mailhtm = replace(mailhtm,"{mesaj}",temizle(request.form("mesaj"))) mailhtm = replace(mailhtm,"{adisoyadi}",temizle(request.form("adisoyadi"))) mailhtm = replace(mailhtm,"{telefon}",temizle(request.form("telefon"))) act.close set act = nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.batiyay.com.tr" Mail.From = "info@batiyay.com.tr" Mail.username = "info@batiyay.com.tr" Mail.password = "1234567890" Mail.FromName = "batiyay" Mail.Subject = "batiyay - Online İletişim Formu" Mail.IsHTML = True Mail.Body = mailhtm Mail.AddAddress "batiyay@batiyay.com.tr" On Error Resume Next Mail.Send If Err <> 0 Then msgs = "Mesajınız Gönderilemedi. " else msgs = "Mesajınız Alınmıştır." End If response.write "" end if %> Batı Yay | Dünyaya esneklik katıyoruz...