%
' enquiries.php
Option Explicit
Dim iIterator, arrCountry, strCountry
Dim strOrganisation, strEmail, strName,strAddress, mess, strPhone
Dim strSubmit, strSubject, strComments, strPostUser, strProduct, strQuantity, strPrice, strArea, strCompany, strShipping
mess=""
strPostUser= Request.Form ( "submit" )
If strPostUser="submit" Then 'checking for update of text areas
strCompany = Request.Form ( "company" )
strName = Request.Form ( "name" )
strAddress = Request.Form ( "address1" ) & " " & Request.Form ( "address2" )
strPhone = Request.Form ( "phone" )
strProduct = Request.Form ( "product" )
strQuantity = Request.Form ( "quantity" )
strPrice = Request.Form ( "price" )
strArea = Request.Form ( "area" )
strEmail = Request.Form ( "email" )
strComments = Request.Form ( "enquiry" )
strShipping = Request.Form ( "shipping" )
strSubject = "Line-O-Dot Online Order for" & strName
On Error Resume Next
Dim objMailer
Set objMailer = Server.CreateObject("Dundas.Mailer")
objMailer.FromAddress = strEmail
objMailer.Subject = "EZ Mark Online Order From " & strName
'objMailer.TOs.Add "komradkroutski@hotmail.com"
objMailer.TOs.Add "gapetty@bigpond.com"
Dim strBody
strBody = "EZ Mark Order " & vbCrLf & "Address: " & strAddress & vbCrLf & "Phone: " & strArea & " " & strPhone & vbCrLf & "Email: " & strEmail & vbCrLf & "Quantity (no. of Boxes): " & strQuantity & vbCrLf & "Product: " & strProduct & vbCrLf & "Price: " & strPrice & "Comments: "& vbCrLf & strComments
objMailer.Body = strBody
objMailer.SendMail
Set objMailer = nothing
mess="Your Message has been sent, Thank You"
End If
%>
EZ-Mark
|
|
|
Place an Order
<%=mess%>
Please contact us by filling in your details below.
We will get back to you as soon as possible.
|
|
|