<%@ Language=VBScript %>
<%Option Explicit%>
<%
dim pName, pEmail, pInfo, Atit, objMail
pName = Request("pName")
pEmail = Request("pEmail")
pInfo = Request("pInfo")
set objMail = CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From = pEmail
objMail.to = "info@degustibus.gr"
' objMail.bcc = "kpapadimos@greekgeeks.com"
objMail.subject = "Ερωτήσεις για το site του Degustibus"
objMail.Body = "Ερώτηση από τον/την "&pName&"
" & Replace(pInfo,chr(13),"
")
objMail.send
set objMail = Nothing
if lang = "GR" then Atit = "Η αποστολή του ερωτήματός σας ολοκληρώθηκε με επιτυχία!
Σας ευχαριστούμε!" else Atit = "Your question has been succesfully sent!
Thank you!"
%>
<%=PageTitle%>