<% If Request.querystring("Send") <> "" Then msg_txt = "Dunya Fuar Basvuru Formu TR" 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 & "

Hangi Fuar: " & Request.form("fuar_sec") msg_txt = msg_txt & "

Mesaj: " & Request.form("Mesaj") msg_txt = msg_txt & "" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.dunyafuar.com.tr" Mail.From = Request.form("From") Mail.FromName = Request.form("Sirket_ismi") Mail.AddAddress "info@dunyafuar.com.tr" Mail.Subject = "Basvuru 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
     
    APPLICATION FORM
     
Name-Surnameı

:

 *
Lütfen doldurunuz.
     
Company Name : *
Lütfen doldurunuz.
     
Telephone : *
Lütfen doldurunuz.
     
E-mail : *
Lütfen doldurunuz.
     
Please Select :
     
Message :
   
 


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