<%@ Language=VBScript %> <% option explicit %> ManuSoft - Enquiry Form <% end if %>
 

<% ' ---- user clicked send button ---- if request("action") = "Submit" then Dim oMailMessage, messagetext Set oMailMessage = Server.CreateObject("CDONTS.NewMail") oMailMessage.from = "ManuSoft Web Enquiry " oMailMessage.to = "sales@manusoft.org" oMailMessage.Value("Reply-To") = Request.Form("name") & " <" & Request.Form("email") & ">" oMailMessage.subject = "Web Enquiry" messagetext = "The following details were entered on the ManuSoft website:" & vbCRLF & vbCRLF messagetext = messagetext & "Name: " & Request.Form("Name") & vbCRLF messagetext = messagetext & "Job Title: " & Request.Form("JobTitle") & vbCRLF messagetext = messagetext & "Company: " & Request.Form("Company") & vbCRLF messagetext = messagetext & "Telephone: " & Request.Form("Telephone") & vbCRLF messagetext = messagetext & "Email: " & Request.Form("Email") & vbCRLF messagetext = messagetext & "Industry: " & Request.Form("Industry") & vbCRLF messagetext = messagetext & "Employees: " & Request.Form("Employees") & vbCRLF messagetext = messagetext & "Notes: " & Request.Form("Notes") & vbCRLF oMailMessage.Body = messagetext ' Is there a way to trap an returned error in the line below?? oMailMessage.Send() Set oMailMessage = Nothing ' Release the object %>

 

An e-mail has been sent. Thank-you for your time. One of our representatives will contact you as soon as possible.

Return to ManuSoft Home Page <% else %>

Want To Learn More?

Fill in your contact details below and we'll be in touch to organise a personal visit by one of our consultants.

Name: *
Company: *
Job Title: *
Telephone: *
E-Mail: *
Industry:
Number of Employees:
Other Notes
or comments:

* Required Fields

Return to ManuSoft Home Page