% sPageHead = "Catalina Sounds / Marketing help" %>
|
<%
if request("Sending") = "Enquiry" then
sBody = ""
For Each key in Request.form
sBody = sBody & key & ": " & Request.form(key) & "" & vbcrlf
Next
Set Mailer = Server.CreateObject("JMail.message")
Mailer.From = "stockland@email.address.com"
Mailer.FromName = "Stockland Web Order"
Mailer.AddRecipient "mitchell_s@alltypepro.com.au", "ATP"
Mailer.Subject = "Marketing Help: Stockland"
Mailer.Body = sBody
Mailer.silent = true
If Mailer.Send(sMailerHost) then
Response.Write "SuccessThank you. FailedYour request could not be emailed to ATP due to server problem. A guideline to help implement a successful promotional product merchandise campaign. For some guidance from the ATP team, fill in the form below (as many as you can) and click submit. A response will be forthcoming in a matter of days. <% end if %> |