%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% on error resume next Dim MyBody, MyBody1 Dim MyCDONTSMail, MyCDONTSMail1 %> <% If Request.Form("action")="register" Then ' set the variables and values submitted in the forms Set MyCDONTSMail = CreateObject("CDONTS.NewMail") 'set the from varaible MyCDONTSMail.From= Request.Form("email") 'if you wanted to send this directly to you then just replace with your email address like 'MyCDONTSMail.To="me@myemail.com" 'otherwise use 'MyCDONTSMail.To=Request.Form("to") 'MyCDONTSMail.CC=Request.Form("email") 'MyCDONTSMail.To= "info@3i-media.co.uk" MyCDONTSMail.To= "info@grosvenorpartitions.co.uk" 'set the subject can be forced like... 'MyCDONTSMail.Subject="" 'otherwise 'MyCDONTSMail.Subject= Request.Form("subject") 'then just remove the ftext box from overleaf MyCDONTSMail.Subject= "Grosvenor Partitions General Enquiry" 'start the email MyBody = "Grosvenor Partitions General Enquiry" & vbCrLf MyBody = MyBody & "-------------------------------------------------------" & vbCrLf MyBody = MyBody & "Some one filled in your contact form, here are the details:" & vbCrLf & vbCrLf 'reads in inthe info from the text area MyBody = MyBody & "-------------------------------------------------------" & vbCrLf & vbCrLf MyBody = MyBody & "Title: " MyBody = MyBody & Request.Form("title") & vbCrLf MyBody = MyBody & "Name: " MyBody = MyBody & Request.Form("name") & vbCrLf MyBody = MyBody & "Company: " MyBody = MyBody & Request.Form("company") & vbCrLf MyBody = MyBody & "Telephone: " MyBody = MyBody & Request.Form("telephone") & vbCrLf MyBody = MyBody & "Email: " MyBody = MyBody & Request.Form("email") & vbCrLf & vbCrLf MyBody = MyBody & "Address: " MyBody = MyBody & Request.Form("address") & vbCrLf & vbCrLf MyBody = MyBody & "Enquiry: " MyBody = MyBody & Request.Form("enquiry") & vbCrLf & vbCrLf MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing 'set this to the page which you redirect to like "thankyou.asp" once the email has been sent Response.Redirect "message_sent.html" end if %>
|
||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||
|