<% ' change To address of your own SMTP server strHost = "mail.cas-cyprus.com" 'Buray Kendi Hostunuza Gre Deitiriniz. If Request("Send" ) <> "" Then Set Mail = Server.CreateObject("Persits.MailSender" ) ' enter valid SMTP host Mail.Host = strHost Mail.From = "info@cas-cyprus.com" ' From address Mail.FromName = "C.A.S. info " ' optional Mail.AddAddress "ecnops@cas-cyprus.com" Mail.AddAddress "bilgi@cas-cyprus.com" ' message subject Mail.Subject = "Online Handling Request Form" ' message body Mail.Body = " O N L I N E H A N D L I N G R E Q U E S T F O R M " & Chr(13) & Chr(10) & _ "==========================================================" & Chr(13) & Chr(10) & _ " " & Chr(13) & Chr(10) & _ "Company Name : " & Request("Firma") & Chr(13) & Chr(10) & _ "Your Name : " & Request("Your_name") & Chr(13) & Chr(10) & _ "Email Adress : " & Request("email") & Chr(13) & Chr(10) & _ "Phone Number : " & Request("Phone_number") & Chr(13) & Chr(10) & _ "Dep. Airport : " & Request("Dep_airport") & Chr(13) & Chr(10) & _ "Dep. Date : " & Request("Dep_date") & Chr(13) & Chr(10) & _ "ETD ( UTC ) : " & Request("ETD") & Chr(13) & Chr(10) & _ "ETA ( UTC ) : " & Request("ETA") & Chr(13) & Chr(10) & _ "Aircraft Reg. : " & Request("Aircraft_reg") & Chr(13) & Chr(10) & _ "Aircraft Type : " & Request("Aircraft_type") & Chr(13) & Chr(10) & _ "MTOW : " & Request("MTOW") & Chr(13) & Chr(10) & _ "Seat Capacity : " & Request("Seat") & Chr(13) & Chr(10) & _ "GPU : " & Request("C1") & Chr(13) & Chr(10) & _ "ACU : " & Request("C2") & Chr(13) & Chr(10) & _ "Lavatory Service : " & Request("C3") & Chr(13) & Chr(10) & _ "Interior Cleaning : " & Request("C4") & Chr(13) & Chr(10) & _ "Passenger Services : " & Request("C5") & Chr(13) & Chr(10) & _ "Load Control & Comm: " & Request("C6") & Chr(13) & Chr(10) & _ "Flight Ops. : " & Request("C7") & Chr(13) & Chr(10) & _ "Hotel Accomodation : " & Request("C8") & Chr(13) & Chr(10) & _ "Limousine Service : " & Request("C9") & Chr(13) & Chr(10) & _ " " & Chr(13) & Chr(10) & _ "Other : " & Chr(13) & Chr(10) & _ "--------------------" & Chr(13) & Chr(10) & _ Request("OTHER") & Chr(13) & Chr(10) & _ "==========================================================" & Chr(13) & Chr(10) & _ " www.cas-cyprus.com info@cas-cyprus.com" & Chr(13) & Chr(10) strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' sEnd message If Err <> 0 Then ' error occurred strErr = Err.Description Request("Send" ) = "" Else bSuccess = True Request("Send" ) = "" End If End If %>
Online Handling Request Form
<% If strErr <> "" Then %>
Hata ..
<% = strErr %>
<% End If %> <% If bSuccess Then %> Mesajnz Gnderildi
<% End If %>
Company Name
Your Name
Email Adress
Phone Number
Departure Airport
Departure Date
ETD ( UTC )
ETA ( UTC)
Aircraft Registration
Aircraft Type
MTOW
Seat Capacity
GPU
ACU
Lavatory Service
Interior Cleaning
Passenger Services
Load Control & Comm
Flight Ops.
Hotel Accomodation
Limousine Service
Other