%@LANGUAGE="VBSCRIPT"%> <% CR = Chr(13) If (CStr(Request("MM_insert")) = "form1") Then 'Set objMail = CreateObject("CDONTS.NewMail") Set objMail = Server.CreateObject("cdonts.NewMail") objMail.From = "info@chilichic.co.uk" objMail.To = "info@chilichic.co.uk" objMail.Subject = Trim(Request.Form("namefield")) & " -contacted us" objMail.Body= "Name: " & Trim(Request.Form("namefield")) & CR & "Enquiry: " & Trim(Request.Form("enquiryfield")) & CR & "Email Field: " & Trim(Request.Form("emailfield")) & CR & "phone: " & Trim(Request.Form("telephonefield")) 'objMail.MailFormat = 0 'objMail.BodyFormat = 0 objMail.Send Set objMail = Nothing MM_editRedirectUrl = "thanks.asp" Response.Redirect(MM_editRedirectUrl) End If %>
|
||||||||||||||||||||||||||||||||||||