<% If Request.querystring("Send") <> "" Then msg_txt = "Iletisim Formu Web Sitesinden" msg_txt = msg_txt & "

İsim: " & Request.form("FromName") msg_txt = msg_txt & "
Email: " & Request.form("From") msg_txt = msg_txt & "
Telefon: " & Request.form("Telefon") msg_txt = msg_txt & "
Konu: " & Request.form("Konu") msg_txt = msg_txt & "

Mesajı:
" & Request.form("mesaj") msg_txt = msg_txt & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.flascoloralbum.com" Mail.From = Request.form("From") Mail.AddAddress "info@flascoloralbum.com" Mail.Subject = "Iletisim Formu - Web Sitesinden" Mail.IsHTML = True Mail.Body = msg_txt On Error Resume Next Mail.Send If Err <> 0 Then msg = "Mesajınız Gönderilemedi.Geçerli email giriniz.
" & Err.Description else msg = "Mesajınız Başarı İle Bize Ulaşmıştır, En Kısa Zamanda Sizinle İletişime Geçilecektir." End If End If %> İletişim Formu
<%If Request.querystring("Send") <> "" Then%> <%End If%>
     
Ad Soyad / Firma :  
  Email Adresiniz * :    
  Telefon Numaranız :    
  Konu :    
  Mesajınız
:    
         
<%=msg%>