<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
DIM strName, strEmail, strTel, strSehir, strReason, strComments, Mailer
strName = request.form("txtName")
strEmail = request.form("txtEmail")
strTel = request.form("txtTel")
strSehir = request.form("txtSehir")
strReason = request.form("lstReason")
strComments = request.form("txfComments")
Set Mailer =Server.CreateObject("CDONTS.NewMail")
Mailer.From = strEmail
Mailer.Subject ="EGERIA PARK"
Mailer.To ="info@egeriahotels.com"
Mailer.BodyFormat=0
Mailer.MailFormat=0
Mailer.Body = "Siteniz �zerinden Bir �ngilizce �leti�im Formu Gonderildi." &"
" &"
" & _
"�sim: " & strName &"
" & _
"Email Adresi: " &strEmail &"
" & _
"Telefon: " &strTel &"
" & _
"Sehir: " &strSehir &"
" & _
"�letisim Konusu: " &strReason &"
" & _
"Mesaj: " &strComments &"
"
Mailer.Send
Set Mailer = nothing
%>
<%
strName = request.form("txtName")
Response.Write strName
%>,
Your Message Has Been Sent Successfully.
Go Back To HomePage
