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

Şirket İsmi: " & Request.form("Sirket_ismi") msg_txt = msg_txt & "

Firma Yetkilisi: " & Request.form("Firma_Yetkilisi") msg_txt = msg_txt & "

E-mail: " & Request.form("From") msg_txt = msg_txt & "

Telefon No: " & Request.form("TelefonNo") msg_txt = msg_txt & "

Mesaj: " & Request.form("Mesaj") msg_txt = msg_txt & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.umittursen.com" Mail.From = Request.form("From") Mail.FromName = Request.form("Sirket_ismi") Mail.AddAddress "info@umittursen.com" Mail.Subject = "Iletisim Formu" Mail.IsHTML = True Mail.Body = msg_txt On Error Resume Next Mail.Send If Err <> 0 Then msg = "A problem occured while sending your mail. Please try again later./ Posta gönderirken bir sorun oluştu.Lütfen daha sonra tekrar deneyin." & Err.Description else msg = "Your message has send with success.
Mesajınız başarıyla gönderilmiştir." End If End If %> İletişim Formu
     
    RANDEVU FORMU
     
Ad Soyad

:


Lütfen doldurunuz.
     
Firma Adı
:
Lütfen doldurunuz.
     
Telefon
:
Lütfen doldurunuz.
     
E-mail :
Lütfen doldurunuz.
     
Mesajınız :
   
 


   
<%If Request.querystring("Send") <> "" Then%> <%=msg%> <%End If%>