% Dim HiddenOP SUB SendMail() 'Set MailObj=Server.CreateObject("Cdonts.NewMail") 'MailObj.From = "info@amicale-freres-csc.org" 'MailObj.To = "info@amicale-freres-csc.org" 'MailObj.subject="Contact Form" 'MailObj.Body="Submitted Info: "&chr(10)&chr(10)&"Full Name: "& Request.Form("full_name")&chr(10)&"address: "& Request.Form("address")&chr(10)&"Tel: " &Request.form("tel")&chr(10)&"Email: "& Request.Form("email")&chr(10)&"Country: "& Request.Form("Country")&chr(10)&"Comments: "& Request.Form("comments") 'MailObj.Send END SUB HiddenOP = Request("HiddenOP") If strComp(HiddenOP, "submit", 1) = 0 Then 'SendMail Msg = "submit" End If %>
|
||||||||||||||||||||
|
||||||||||||||||||||
|
||||||||||||||||||||