%
dim sgname, sgemail, sgphone, sgcomment, sgmsg
sgname = ""
sgemail = ""
sgphone = ""
sgcomment = ""
if request("name").count>0 then
sgname = request("name")
end if
if request("email").count>0 then
sgemail = request("email")
end if
if request("phone").count>0 then
sgphone = request("phone")
end if
if request("comment").count>0 then
sgcomment = request("comment")
end if
if (not trim(sgname) = "" and not trim(sgemail) = "" and not trim(sgcomment) = "") then
set objmsg = Server.CreateOBject( "CDONTS.NewMail" )
dim sgSubject, sgBody, sgNewLine
sgNewLine = "
"
sgSubject = "Email from Contact Us"
sgBody = ""
sgBody = sgBody & "Name : " & sgname & sgNewLine & sgNewLine
sgBody = sgBody & "Email : " & sgemail & sgNewLine & sgNewLine
sgBody = sgBody & "Phone : " & sgphone & sgNewLine & sgNewLine
sgBody = sgBody & "Comments : " & sgcomment & sgNewLine & sgNewLine
objmsg.From = sgname & "(" & sgemail & ")"
objmsg.To = "info@escort-hk.com"
objmsg.Subject = sgSubject
objmsg.Body = sgBody
objmsg.MailFormat = 0
objmsg.BodyFormat = 0
objmsg.Send
SET objmsg = nothing
sgmsg = "Thank you to submit information to us!"
end if
%>
![]() | ||
| ||
|
Escort-hk.com © Copyright 2006 |