<% If Request.querystring("Send") <> "" Then msg_txt = "İletişim formu" msg_txt = msg_txt & " İsim: " & Request.form("isim") msg_txt = msg_txt & " Email: " & Request.form("email") msg_txt = msg_txt & " Telefon: " & Request.form("telefon") msg_txt = msg_txt & " Adres: " & Request.form("adres") msg_txt = msg_txt & " Şehir: " & Request.form("sehir") msg_txt = msg_txt & " Mesajınız: " & Request.form("mesaj") msg_txt = msg_txt & "" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.egeblok.com" Mail.From = Request.form("From") Mail.FromName = Request.form("FromName") Mail.AddAddress "info@egeblok.com" Mail.Subject = "İletişim Formu" Mail.IsHTML = True Mail.Body = msg_txt On Error Resume Next Mail.Send If Err <> 0 Then msg = "Lütfen bilgileri tekrar kontrol ediniz. " & Err.Description else msg = "Teşekkürler. Mesajınız İletilmiştir." End If End If %> <%If Request.querystring("Send") <> "" Then%> <%End If%> İletişim Formu İsim Soyisim Email Telefon Adres Şehir Seçiniz... İstanbulAnkaraİzmirAdanaAdıyamanAfyonAğrıAksarayAmasyaAntalyaArdahanArtvinAydınBalıkesirBartınBatmanBayburtBilecik BingölBitlisBoluBurdurBursaÇanakkaleÇankırıÇorumDenizliDiyarbakırEdirneElazığErzincanErzurumEskişehirGaziantepGiresunGümüşhaneHakkariHatayIğdırIspartaİçelK.MaraşKarabükKaramanKarsKastamonuKayseriKırıkkaleKırklareliKırşehirKilisKocaeliKonyaKütahyaMalatyaManisaMardinMuğlaMuşNevşehirNiğdeOrduOsmaniyeRizeSakaryaSamsunSiirtSinopSivasŞanlıurfaŞırnakTekirdağTokatTrabzonTunceliUşakVanYalovaYozgatZonguldak Diğer Yurtdışı Mesajınız <%=msg%>