<% Action = Left(UCase(Request("Action")),5) If Action = "SUBMI" Then ' Start Mailer Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby, strDest, strCapacity, objCDOMail Dim doneform doneform = False On Error Resume Next strTo = "questionnaire@litremeter.com" ' Who from strDest = "sales@litremeter.com" ' Who to strCC = "paulc@bucks.net" ' Who CC to strSubject = "Flowmeter Quotation Questionnaire" ' SubJect strBody = strBody & "Flowmeter Quotation Questionnaire, details follow:" & vbCRLF & vbCRLF strBody = strBody & "Contact Name: " & request.form("name") & vbCRLF strBody = strBody & "Company: " & request.form("company") & vbCRLF 'strBody = strBody & "Address: " & request.form("address") & vbCRLF strBody = strBody & "Email: " & request.form("email") & vbCRLF strBody = strBody & "Telephone: " & request.form("phone") & vbCRLF & vbCRLF If request.form("fluid") <> "" then strBody = strBody & "Fluid: " & request.form("fluid") & vbCRLF strBody = strBody & "Flow rate units: " & request.form("flowunits") & vbCRLF strBody = strBody & "Max flow rate: " & request.form("maxflow") & vbCRLF strBody = strBody & "Min flow rate: " & request.form("minflow") & vbCRLF If request.form("pressureother") <> "" then strBody = strBody & "Pressure: " & request.form("pressureother") & vbCRLF If request.form("pressureunits") <> "" then strBody = strBody & "Pressure Units: " & request.form("pressureunits") & vbCRLF If request.form("tempmin") <> "" then strBody = strBody & "Temp Min: " & request.form("tempmin") & vbCRLF If request.form("tempmax") <> "" then strBody = strBody & "Temp Max: " & request.form("tempmax") & vbCRLF If request.form("tempunits") <> "" then strBody = strBody & "Temp Units: " & request.form("tempunits") & vbCRLF If request.form("viscositymin") <> "" then strBody = strBody & "Viscosity Min: " & request.form("viscositymin") & vbCRLF If request.form("viscositymax") <> "" then strBody = strBody & "Viscosity Max: " & request.form("viscositymax") & vbCRLF If request.form("viscosityunits") <> "" then strBody = strBody & "Viscosity Units: " & request.form("viscosityunits") & vbCRLF strBody = strBody & "Hazardous area: " & request.form("hazard") & vbCRLF If request.form("pulse") <> "" then strBody = strBody & "Output type: " & "Pulse" & vbCRLF If request.form("analogue") <> "" then strBody = strBody & "Output type: " & "Analogue" & vbCRLF If request.form("batch") <> "" then strBody = strBody & "Output type: " & "Batch" & vbCRLF If request.form("rate") <> "" then strBody = strBody & "Display type: " & "Rate" & vbCRLF If request.form("total") <> "" then strBody = strBody & "Display type: " & "Total" & vbCRLF strBody = strBody & "Flow Alarms: " & request.form("alarms") & vbCRLF If request.form("12v") <> "" then strBody = strBody & "Power available: " & "12v" & vbCRLF If request.form("24v") <> "" then strBody = strBody & "Power available: " & "24v" & vbCRLF If request.form("mains") <> "" then strBody = strBody & "Power available: " & "Mains" & vbCRLF strBody = strBody & "Comments: " & vbCRLF & request.form("comments") & vbCRLF strBody = strBody & "==========================================================" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strTo objCDOMail.To = strDest objCDOMail.CC = strCC objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Importance = 2 ' Send the message! objCDOMail.Send Set objCDOMail = Nothing doneform = True ' Start Mailer ' strTo = "questionnaire@litremeter.com" ' Who from strDest = request.form("email") strBody = "" strSubject = "Successful Web Quote Request" strBody = strBody & "Successful Web Quote Request" & vbCRLF & vbCRLF strBody = strBody & "The quote was placed at " & now() & " (GMT)" & vbCRLF & vbCRLF strBody = strBody & "--------------------------------------------------------------------------" & vbCRLF & vbCRLF strBody = strBody & "Thank you for using our online quote system. You will be contacted by a Litremeter representative shortly" & vbCRLF & vbCRLF strBody = strBody & "--------------------------------------------------------------------------" & vbCRLF & vbCRLF Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strTo objCDOMail.To = strDest objCDOMail.bCC = strbCCDest objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Importance = 2 ' Send the message! objCDOMail.Send Set objCDOMail = Nothing ' ' End Mailer End If %> Litermeter | Flowmeter enquiry

Flowmeter Quotation Questionare
<% If doneform = True then %>
Thankyou for submitting the questionnaire, a company representative will contact you shortly.

Click here to return to the homepage. <% Else %> Please give as much information as you know.

Name:
Company:
Email:
Telephone:

Fluid:    Liquid     Gas     
 
Flow rate units:     Max flow rate:     Min flow rate: 
 
Pressure: (bar)  0-5  5-10  10-20  20-30  30-100  100+  specify 
 
Temp: (oC max)  -20-70  70-100  100-130  130+  specify 
 
Viscosity (if known)   cSt or
 
Hazardous area installation?  
 
Output type:   Pulse    Analogue    Batch    None   
 
Display type:   Rate    Total    Rate & Total    None   
 
Flow alarms?  
 
Power available:   None    12v    24v    Mains   
 
Comments:
 
    
<% End If %>