% ' Send email Dim objMail, emailBody emailBody = "The following contact request was recieved at: " & now() & ".\n\n" emailBody = emailBody & "Contact details\n" emailBody = emailBody & "----------------------------------\n" emailBody = emailBody & "Name: " & Request.Form("name") & "\n" emailBody = emailBody & "Company: " & Request.Form("company") & "\n" emailBody = emailBody & "Phone: " & Request.Form("phone") & "\n" emailBody = emailBody & "Email: " & Request.Form("email") & "\n\n" emailBody = emailBody & Request.Form("subject") & "\n" emailBody = emailBody & "----------------------------------\n" emailBody = emailBody & Request.Form("details") & "\n\n" emailBody = emailBody & "Additional information\n" emailBody = emailBody & "----------------------------------\n" emailBody = emailBody & "Business type: " & Request.Form("type") & "\n" emailBody = emailBody & "Referer: " & Request.Form("referer") & "\n" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "site@networxep.co.uk" objMail.Subject = "Contact form: " & Request.Form("name") objMail.Importance=1 objMail.Body = emailBody objMail.To = "site@networxep.co.uk" objMail.Send() %>
For a limited period Networx are offering our 'KeyPoint Website Accessibility Check' to selected customers at no charge. The KeyPoint check covers 10 critical points of accessibility that we have identified from the most up-to-date disability directives. The report provides a substantive indication of how your website performs for disabled users and therefore its compliance with the act's requirements.
More information
on accessibility and our services![]()