<% 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 %>

<%If Request.querystring("Send") <> "" Then%> <%End If%>       Ad Soyad / Firma :     Email Adresiniz * :       Telefon Numaranız :       Konu :       Mesajınız :               <%=msg%>