<%
If Request.querystring("Send") <> "" Then
msg_txt = "Web İletişim Formu"
msg_txt = msg_txt & "
Adınız: " & Request.form("isim")
msg_txt = msg_txt & "
Soyadınız: " & Request.form("soyad")
msg_txt = msg_txt & "
Firma: " & Request.form("firma")
msg_txt = msg_txt & "
Adres: " & Request.form("adres")
msg_txt = msg_txt & "
Şehir: " & Request.form("sehir")
msg_txt = msg_txt & "
Telefon: " & Request.form("telefon")
msg_txt = msg_txt & "
Fax: " & Request.form("fax")
msg_txt = msg_txt & "
Email: " & Request.form("email")
msg_txt = msg_txt & "
Notunuz: " & Request.form("note")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.farukeremvakfi.org.tr"
Mail.username = "vakif@farukeremvakfi.org.tr"
Mail.password = "web2007"
Mail.From = Request.form("email")
Mail.FromName = Request.form("isim")
Mail.AddAddress "vakif@farukeremvakfi.org.tr"
Mail.Subject = "Web Sitenizden Form Gönderisi"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilemedi.
" & Err.Description
else
msg = "Mesajınız Alınmıştır. Teşekkür Ederiz."
End If
End If
%>
Versiyon Bilişm Web Sitesi Tasarımı İnternet Sitesi Yazılım Domain Hosting Cd Tasarım Ankara