|
<%
if request("job") = "sendit" then
call onay
else
call ana
end if
%>
<% sub ana %>
Please mark the name of the tour that you would like to have;
<% end sub %>
<%
sub onay
'On Error Resume Next
Set smtp = Server.CreateObject("JMail.Message")
msg = "" & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Tur Organizasyonu Talep Formu | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Tur ismi: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("tour_name")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Yetişkin: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("N_of_passengers_adults")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Çocuk: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("N_of_pass_child_age1") & "-" & Request.form("N_of_pass_child_age2") & "-" & Request.form("N_of_pass_child_age3")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Bebek: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("N_of_pass_infants")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| İletişim Bilgileri | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Müşteri Bilgileri: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("contact_detail_title") & " " & Request.form("contact_detail_name") & " " & Request.form("contact_detail_surname")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Yaş: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("contact_detail_age")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Ulaşım Bilgileri : | " & chr(13) & chr(10)
msg = msg & "Adres: " & Request.form("contact_detail_adress1") & " " & Request.form("contact_detail_adress2") & " " & Request.form("contact_detail_postcode") & " - " & Request.form("contact_detail_town_city") & " / " & Request.form("contact_detail_country") & " Telefon: " & Request.form("contact_detail_phone") & " Faks: " & Request.form("contact_detail_fax") & " E-Mail: " & Request.form("contact_detail_email") & chr(13) & chr(10)
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Tatil Detayları | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| İstekler: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("holiday_details")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Tercih Edilen Otel: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("hotel_name")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Tercih Edilen oda Tipi: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("room_type")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Geliş Tarihi: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("arrival_date")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Dönüş Tarihi: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("departure_date")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "| Ek Bilgi: | " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & Request.form("additional_details")
msg = msg & " | " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & " " & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
msg = msg & "" & chr(13) & chr(10)
smtp.ContentType = "text/html"
smtp.Charset = "windows-1254"
smtp.AddRecipient "onur@t2tasarim.com"
smtp.from = "admin@societyoftravel.com"
smtp.fromname = "Web Admin"
smtp.MailServerUserName = "postmaster@societyoftravel.com"
smtp.MailServerPassWord = "kayrasot"
smtp.Subject = "İnternet sayfanızdan tur isteği var!"
smtp.body = msg
smtp.Send("mail.societyoftravel.com")
If not Err Then
%>
|
Talebiniz gönderildi!
Eğer
başvurunuzda eksik veya yanlış bilgi yok ise ilk fırsatta sizi arayacağız.
İlginiz için teşekkür ederiz.
Society of Travel.
<%
else
%>
Home
Page
Formunuz Gönderilemedi!
Tekrar deneyin!
Geri dön!
<%
end if
set smtp = Nothing
end sub
%>