<%@ Language=VBScript %> <%Option Explicit%> <% dim pName, pEmail, pInfo, 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 = "gsgouros@greekgeeks.com" objMail.subject = "Σχόλια για το site του Degustibus" objMail.Body = "Σχόλια από τον/την "&pName&"

" & Replace(pInfo,chr(13),"
") objMail.send set objMail = Nothing %>

<%=Atit(lg)%> Η αποστολή των σχολίων σας ολοκληρώθηκε με επιτυχία! Σας ευχαριστούμε για τη βοήθειά σας!