%
'############################################################################
'#
'#
'# Yazan: Emre Eratik
'# Web: www.metyus.com
'# Msn: msn@metyus.com
'# Mail: metyus@metyus.com
'# Her Hakları Emre Eratik'e Aittir.. İstediğiniz Şekilde Kullanınız..
'#
'#
'############################################################################
%>
<%
If Request.querystring("Send") <> "" Then
msg_txt = "Yeni İletişim Formu"
msg_txt = msg_txt & "
İsim: " & Request.form("FromName")
msg_txt = msg_txt & "
Email: " & Request.form("From")
msg_txt = msg_txt & "
Firma: " & Request.form("Firma")
msg_txt = msg_txt & "
Telefon: " & Request.form("Phone")
msg_txt = msg_txt & "
Mesajınız:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.famous-tour.com"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "info@famous-tour.com"
Mail.Subject = "Excursion_Ru"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "We can not send your resrevation...Please fill form correctly and send again!!!.
" & Err.Description
else
msg = "Ваша информация получена !!!Сапсибо за то,что выбрали нашу компанию !!!!"
End If
End If
%>
|
|
|
TOUR & TRIP RESERVATION FORM |
| Personal Informations | |
|
Name : |
|
|
Surname : |
|
|
e-mail : |
|
|
Gsm Nummer : |
|
| Tour Informations | |
|
Tour Date : |
|
|
Tour & Trip Name : |
|
|
Tour or Trip of Region : |
|
|
Tour or Trip of Side : |
|
|
Nummer Of Persons : |
Adults : Child : |
|
Your Hotel's Name : |
|
|
Your Hotel's Region : |
|
|
Extra Note : |
|
|
|
|
| <%=msg%> |
|
|
|