<%@ LANGUAGE="VBScript" %> <% ' Declare variables Dim strMessageBody Dim strMessageBody2 %> PicturesPlus-Art Dealers Wanted Page
Home Purchasing Prints Presentation Options Add Our Link Contact Us
 
 
Scenics Gallery
Wildlife Gallery
Panorama Gallery
Fine Art Gallery
Licensed Art
Press Releases
Worldwide Links

 

All images on this site are © (copyright) by John Douglas and PicturesPlus-Art.com.  


 

 


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.

Business Name
Address (line1)
              (line2)
              City
              State
              Zip
             Country
Phone Number
Fax Number
Email Address
Web Site URL
Owner's Name
Contact Person's Name
Years In Business
Numbers Of Employees
Examples of art that you are currently carrying (Artists' Names Please)

Thank you for your interest in PicturesPlus-Art.com.   After you have filled out the form, please press the "submit application" button below.  We will respond 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:") & "

" & "Address: " & "
" & request.form("02-address:") & "
" & request.form("03-address:") & ", " & request.form("04-city:") & " " & request.form("05-state") & ", " & request.form("06-zip:") & " " & request.form("07-country:") & "
" & "Phone number:" & " " & request.form("08-phone :")& "
" & "FAX number: " & " " & request.form("09-fax:") & " " & "Email Address:" & " " & request.form("10-email:") & " " & "URL:" & " " & request.form("11-website") & " " & "Owner's Name:" & " " & request.form("12-owner:") & "
" & "Contact Person: " & " " & request.form("13-contact:") & "
" & "Year's in Business: " &" " & request.form("14-years:") & "

" & "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):" & "


" & "Name: " & request.form("01-businessname:") & "

" & "Address: " & "
" & request.form("02-address:") & "
" & request.form("03-address:") & ", " & request.form("04-city:") & " " & request.form("05-state") & ", " & request.form("06-zip:") & " " & request.form("07-country:") & "
" & "Phone number:" & " " & request.form("08-phone :")& "
" & "FAX number: " & " " & request.form("09-fax:") & " " & "Email Address:" & " " & request.form("10-email:") & " " & "URL:" & " " & request.form("11-website") & " " & "Owner's Name:" & " " & request.form("12-owner:") & "
" & "Contact Person: " & " " & request.form("13-contact:") & "
" & "Year's in Business: " &" " & request.form("14-years:") & "

" & "Number of Employees " & " " & request.form("15-employees:") & "
" & "Artwork Examples: " & " " & request.form("16-examples:") %>
<%=strMessageBody%>

<% 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 %>

<% End if %>

Search Now:
In Association with Amazon.com

Return to Top