<% Dim contactName, contactCoName, contactEmail, contactCompany, contactEnquiry, contactHear Dim contactNumber, contactType, contactEnq, contactHow Dim strRetVal, strBodyText, strcst_email, strBody, strFrom Dim strCAPTCHA, blnCAPTCHAChecked contactName = Request("name") contactCompany = Request("company") contactEmail = Request("email") contactNumber = Request("number") contactType = Request("type") contactEnq = Request("enq") contactHow = Request("how") If Request("formContactSubmitted") > 0 Then 'strCAPTCHA = Trim(Request.Form("frm_captcha")) 'blnCAPTCHAChecked = CheckCAPTCHA(strCAPTCHA) 'If blnCAPTCHAChecked = true Then 'Captcha correct strRetVal = "" & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & "" & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & "" & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & "" & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & "" & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & "" & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & "" & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & " " & VBCRLF strRetVal = strRetVal & "" & VBCRLF strRetVal = strRetVal & "
Name:" & contactName & "
Company:" & contactCompany & "
Email:" & contactEmail & "
Contact Number:" & contactNumber & "
Type of enquiry:" & contactType & "
Enquiry:" & contactEnq & "
How did you hear about us?:" & contactHow & "
" & VBCRLF 'Dim strBodyText 'The header/footer for the email. strBodyText = strRetVal 'Who does this come from? MAKE SURE TO CHANGE THIS TO YOUR EMAIL ADDRESS! strFrom = "sales@enlight.co.uk" if Len(strFrom) = 0 then strFrom = "sales@enlight.co.uk" 'This information is optional Dim strTo, strSubject, strRedirectURL, strFromPath, strSession strTo = "sales@enlight.co.uk" if Len(strTo) = 0 then strTo = strFrom strSubject = Request("EmailSubject") if Len(strSubject) = 0 then strSubject = "Enlight Contact form completed" strBody = strBodyText & "
" & strBody & "
" strBody = strBody & "FORM submitted at " & Now() & "

" 'Time to send the email Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") objCDO.To = "sales@enlight.co.uk" 'objCDO.To = "email@anewm.co.uk" 'objCDO.Bcc = "sales@enlight.co.uk" objCDO.From = strFrom objCDO.Subject = strSubject objCDO.HTMLBody = strBody objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost" 'Server port objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 objCDO.Configuration.Fields.Update objCDO.Send 'Response.Write strBody Set objCDO = Nothing 'Response.redirect "/interior.asp?page_id=47" 'End If End If %> EnLight - Advanced Lighting Technology
<% If Request("formContactSubmitted") > 0 Then %>

Thanks for your enquiry

Thanks for your enquiry. We aim to respond to all enquiries within 24 hours.

<% Else %>

Contact Us

EnLight® Technologies continues to develop innovative and advanced lighting products and controls for the Lighting Industry.

If you would like more information, product demonstrations or would like to take advantage of the benefits this world leading technology offers then please contact us sales@enlight.co.uk or Telephone +44 (0) 1508 521227

<% End If %>