<%@ Language=VBScript %> <%Option Explicit%> <% Dim PageName PageName = "Contact Us" %> <% Dim BusinessName, FullName, EmailAddress, Telephone, Quantity, Description Dim NoColours, Deadline, HearAboutUs Dim EmailBody, ErrorMessage, SuccessMessage, MailServer, NewQuoteRequestEmail BusinessName = Trim(Request.Form("BusinessName")) FullName = Trim(Request.Form("FullName")) EmailAddress = Trim(Request.Form("EmailAddress")) Telephone = Trim(Request.Form("Telephone")) Quantity = Trim(Request.Form("Quantity")) Description = Trim(Request.Form("Description")) NoColours = Trim(Request.Form("NoColours")) Deadline = Trim(Request.Form("Deadline")) HearAboutUs = Trim(Request.Form("HearAboutUs")) SuccessMessage = False Conn.open strConn If Request.Form("Submit") = "Submit" Then ErrorMessage = "" If FullName = "" Then ErrorMessage = ErrorMessage & "You must enter your name.
" If EmailAddress = "" Then ErrorMessage = ErrorMessage & "You must enter your email address.
" ElseIf InvalidEmail(EmailAddress) Then ErrorMessage = ErrorMessage & "You did not enter a valid email address.
" End If If Telephone = "" Then ErrorMessage = ErrorMessage & "You must enter your telephone number.
" If Quantity = "" Then ErrorMessage = ErrorMessage & "You must enter quantity.
" If Description = "" Then ErrorMessage = ErrorMessage & "You must enter a brief description.
" If NoColours = "" Then ErrorMessage = ErrorMessage & "You must enter number of colours.
" If Deadline = "" Then ErrorMessage = ErrorMessage & "You must enter expected date of delivery.
" If ErrorMessage = "" Then NewQuoteRequestEmail = GetSystemParameter("New Quote Request Email") MailServer = GetSystemParameter("Mail Server") EmailBody = "A website Contact Us was received with the following details:" & vbCrLf & vbCrLf EmailBody = EmailBody & "Name: " & FullName & vbCrLf EmailBody = EmailBody & "Business Name: " & BusinessName & vbCrLf EmailBody = EmailBody & "Email Address: " & EmailAddress & vbCrLf EmailBody = EmailBody & "Telephone: " & Telephone & vbCrLf EmailBody = EmailBody & "Quantity: " & Quantity & vbCrLf EmailBody = EmailBody & "No Of Colours: " & NoColours & vbCrLf EmailBody = EmailBody & "Deadline: " & Deadline & vbCrLf EmailBody = EmailBody & "Hear About Us: " & HearAboutUs & vbCrLf EmailBody = EmailBody & "Description:" & vbCrLf & Description SendEmailJMail MailServer, NewQuoteRequestEmail,"Majestic Products" ,NewQuoteRequestEmail, "Website Contact Us - " & FullName, EmailBody SuccessMessage = True End If End If %> Majestic Products - <%=PageName%>

<% If ErrorMessage <> "" Then %> <% End If %> <% If SuccessMessage Then %> <% Else %> <% End If %>
   
  There was a problem with the information
you entered:
<%=ErrorMessage%>
   
  Thank you for your quote application.

Your Free Quote Request was sent successfully.

Majestic Products will endeavour to process your application within 5 working days. We will contact you either via e-mail or telephone.
  Business Name:
   
  Contact Person:
   
  Email:
   

 Telephone number:
   
Quantities required:
   
Please give a brief description of object to be printed, including rough estimate of size, colour and surface description.
 
 

  Number of colours to be printed:
   
  Expected Date of Delivery:
   
  Where did you hear about us?:
   
 

  These fields are required so that we can accurately give you a quote on your project.
   
  Majestic Products will endeavour to process your application within 5 working days. We will contact you either via e-mail or telephone. Thankyou for visiting our site. If you have any questions regarding this site or our service, please feel free to contact us.
 
 
Majestic Products
36 Burlington Street
Oakleigh, Vic, 3166
A U S T R A L I A
 
Tel: 61 3 9569 6511
Fax: 61 3 9563 4442
 
Email:
sales@majestic-products.com
 
Internet Site:
www.majestic-products.com

<%Set Conn = Nothing%>