<%
'#########################################################################
' THE ACTUAL MAIL SENDING PROCEDURE
'#########################################################################
Sub SendMail(mTo, mSubject, mBody)
Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Const strSmartHost = "10.10.10.101"
Server_Email = "admin@pollyscrafts.com.au"
'Create the message object
Set iMsg = CreateObject("CDO.Message")
'Create the configuration object
Set iConf = iMsg.Configuration
'Set the fields of the configuration object to send using SMTP via port 25.
With iConf.Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Update
End With
'Set the message to,from,subject,body properties.
mFrom = Server_Email
With iMsg
.To = mTo
.From = mFrom
.Subject = mSubject
' .TextBody = mBody
.HTMLBody = mBody
.Send
End With
set iMsg = Nothing
End Sub
%>
Polly's Crafts - Order Form
Supplying innovative and exciting activities for entertaining children of all ages
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'Build the Message to send
mSubject = "Website Order - pollyscrafts.com.au"
mBody = "The following order information was submitted
"
mBody = mBody & "
"
for x = 1 to Request.Form.count()
mBody = mBody & Request.Form.key(x) & " = "
mBody = mBody & Request.Form.item(x) & "
"
next
mBody = mBody & "Submitted online using the order form at: " & Date & " " & Time & "
"
' Send first message to unit mailbox
mTo = "admin@pollyscrafts.com.au"
CALL SendMail(mTo, mSubject, mBody)
response.write("
Thankyou! Your order has been submitted. Someone will contact you shortly
")
Else
%>
Prices are in Australian dollar ($AU) and don't include GST or postage
<% End If %>
For other enquiries please email or call
admin@pollyscrafts.com.au
Ph/Fax: 61-7-4778 2969
Mobile: 0422 822 434
Freight is dependant upon delivery location and quantity of order.
Confirmation of order will be sent to the above email address including:
total price of order not including GST, but including freight and payment options.
Wholesale enquiries welcomed
