Do you like the images you saw on our website? If so, you can join us and become one of our dealers.
This is the place to start. Simply fill out the application form below, and we
will have someone contact you as soon as possible.
<% ElseIf request.form("cmdsubmit") = "Submit E-mail" then
' determine payment
If request.form then
strCC = "We will respond to your application as soon as possible."
Else
strCC = "We will respond to your application as soon as possible."
End If
' Format message body by including all Input Names from the form
' First message is sent to company
strMessageBody = "Name: " & request.form("01-businessname:") & "
" & "Number of Employees " & " " & request.form("15-employees:") & " " & "Artwork Examples: " & " " & request.form("16-examples:")
'second message is sent to sender
strMessageBody2 = "The following order message has been received by PicturesPlus-Art.com (http://www.picturesplus-art.com):" & "
<%
strMessageBody = Replace(strMessageBody," ",Chr(13))
Set PPMailer = Server.CreateObject("SMTPsvg.Mailer")
PPMailer.FromName = "PicturesPlus-Art.com"
PPMailer.FromAddress = "picturesplus@picturesplus-art.com"
PPMailer.Subject = "Order Received"
PPMailer.BodyText = strMessageBody
PPMailer.RemoteHost = "picturesplus-art.com"
PPMailer.AddRecipient "Order Processing", "picturesplus@picturesplus-art.com"
if PPMailer.SendMail then
' Message sent sucessfully
response.write ("Thank you for your message.
")
strMessageBody2 = Replace(strMessageBody2," ",Chr(13))
Set PPMailer2 = Server.CreateObject("SMTPsvg.Mailer")
PPMailer2.FromName = "PicturesPlus-Art.com"
PPMailer2.FromAddress = "picturesplus@picturesplus-art.com"
PPMailer2.Subject = "Your Message"
PPMailer2.BodyText = strMessageBody2
PPMailer2.RemoteHost = "PicturesPlus-Art.com"
PPMailer2.AddRecipient request.form("01-businessname"), request.form("10-email")
'If the first message is sent successfully, then send the second
If PPMailer2.SendMail then
response.write ("A copy of this message has been e-mailed to you at the above e-mail address.")
else
response.write ("Please print a copy of the above order for your records. ")
response.write ("While attempting to send a copy of this order to the e-mail address you specified above, the system reported the following error: " & PPMailer2.Response) & ""
end if
else
' Message send failure
response.write ("Your message was not received.")
response.write ("The system reported the following error:" & PPMailer.Response)
end if
%>
