% strName=Request.form("Name") strEmail=Request.form("Email") strTelephone=Request.form("Telephone") strFax=Request.form("Fax") strContactMethod=Request.form("ContactMethod") strMessage=Request.form("Message") strBody=strBody & "Name: " & strName & vbcrlf strBody=strBody & "E-mail: " & strEmail & vbcrlf strBody=strBody & "Telephone: " & strTelephone & vbcrlf strBody=strBody & "Fax: " & strFax & vbcrlf strBody=strBody & "Contact Method: " & strContactMethod & vbcrlf strBody=strBody & "----------------------------" & vbcrlf strBody=strBody & "Message: " & strMessage & vbcrlf If Request.Form("Submit").Count > 0 Then Set myMail = CreateObject("CDO.Message") myMail.Subject = "Website - Contact Form" myMail.Sender = Request.Form("Email") myMail.From = Request.Form("Email") myMail.To = "sales@dartington.com" myMail.Bcc = "backups@kcreate.co.uk" myMail.TextBody = strBody myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing Response.Redirect("thankyou.asp") End If %>
|