%
if Request.Form.Count >0 then
if Request.Form("name") ="" or Request.Form("message")="" then
error_message="Please type your Name and your Message."
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Automated Message From STEP"
Mailer.FromAddress= "secretary@stepcyprus.com"
Mailer.RemoteHost="212.31.100.4"
Mailer.AddRecipient "STEP Cyprus", "secretary@stepcyprus.com"
Mailer.Subject = "INFO REQUEST!"
Mailer.BodyText = "A person requested Information from stepcyprus.com" & VbCrLf & VbCrLf & "Here is the message:" & VbCrLf & "Date:" & now()+ 0.29167 & VbCrLf & "Name: " & Request.Form("name") & VbCrLf & "Email: " & Request.Form("email") & VbCrLf & "Phone: " & Request.Form("tel") & VbCrLf & "Message:" & VbCrLf & Request.Form("message")
if Mailer.SendMail then
error_message= "Your request was accepted
Thank you.
We will contact you soon."
else
error_message = "Your request was NOT accepted please try again
"
end if
end if
end if%>
|
|
|
|
|
Totalserve House, 17Gr. Xenopoulou Street,
Limassol, Cyprus
* Required Fields Please Enter Your Question or Comments Below:
STEP Cyprus©2007 | All Rights
Reserved | Contact |
Site Menu
|
|
Email Links: |