File: D:/web/itpartnership/emailer/Copy of somacontracts.asp
<!--#include file="inc-email.asp"-->
<html>
<head>
</head>
<body>
<%
' (SS,27/11/03) Added check for Telephone to stop blank emails being sent
' also changed "Title" to "JobTitle" and corrected "01FirstName" to "FirstName"
' SOCK!!! DO NOT FORGET TO ADD #include file="inc-email.asp" at the top !!! else you will get line 49 error '
If Trim(Request.Form("Email")) <> "" Then
SetTableStyle _
"td {" &_
"font-family: Verdana, Arial, Helvetica, sans-serif;" &_
"font-size: 10px;" &_
"border-top-width: 1px;" &_
"border-right-width: 1px;" &_
"border-bottom-width: 1px;" &_
"border-left-width: 1px;" &_
"border-bottom-style: solid;" &_
"border-top-color: #CCCCCC;" &_
"border-right-color: #CCCCCC;" &_
"border-bottom-color: #CCCCCC;" &_
"border-left-color: #CCCCCC;" &_
"vertical-align: top;" &_
"}"
OpenEmail "HTML", 35
AddToEmail "","<b>Soma Contract Services - Website Enquiry Details:</b><br><br>"
AddToEmail "Title", Request.Form("Title")
AddToEmail "Full Name", Request.Form("Name")
AddToEmail "Address line 1", Request.Form("Address_line1")
AddToEmail "Address line 2", Request.Form("Address_line2")
AddToEmail "City", Request.Form("City")
AddToEmail "County/State", Request.Form("County")
AddToEmail "Country", Request.Form("Country")
AddToEmail "Postcode", Request.Form("Postcode")
AddToEmail "Telephone", Request.Form("Tel")
AddToEmail "Email Address", Request.Form("Email")
AddToEmail "Enquiry", Request.Form("Enquiry")
' Subject, To, BCC1, BBC2 FROM '
SendEmail "Soma Contract Services - Contact Form / Website Enquiry", "maggieholman@somacontracts.co.uk", "dennisbaldwin@somacontracts.co.uk", "davidkenyon@somacontracts.co.uk", Request.Form("Email")
Else
Response.Write("<br><br><strong>No enquiry sent. Email address missing. Please go back and correct.</strong><br>")
End If
Response.Redirect("http://www.somacontracts.co.uk/thankyou.htm")
%>
</body>
</html>