<% if Request("submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = Request("email") objCDO.To = "dave@vanard.com, clyde@vanard.com, rose@vanard.com, laura@vanard.com" objCDO.Subject = "Quote request from " & Request("realname") objCDO.TextBody = objCDO.TextBody & "Name: " objCDO.TextBody = objCDO.TextBody & Request("realname") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Email Address: " objCDO.TextBody = objCDO.TextBody & Request("email") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Company: " objCDO.TextBody = objCDO.TextBody & Request("company") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Tel: " objCDO.TextBody = objCDO.TextBody & Request("telephone") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Fax: " objCDO.TextBody = objCDO.TextBody & Request("fax") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Description of Job: " objCDO.TextBody = objCDO.TextBody & Request("job_description") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Quantity: " objCDO.TextBody = objCDO.TextBody & Request("quantity") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Number of Pages: " objCDO.TextBody = objCDO.TextBody & Request("number_of_pages") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Flat Size: " objCDO.TextBody = objCDO.TextBody & Request("flat_size") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Finished Size: " objCDO.TextBody = objCDO.TextBody & Request("finished_size") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Text Paper Finish: " objCDO.TextBody = objCDO.TextBody & Request("paper_finish") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Text Paper Weight: " objCDO.TextBody = objCDO.TextBody & Request("paper_weight") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Description of Text Paper: " objCDO.TextBody = objCDO.TextBody & Request("description_of_text_paper") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Ink-Text: " objCDO.TextBody = objCDO.TextBody & Request("#colors_text") objCDO.TextBody = objCDO.TextBody & " over " objCDO.TextBody = objCDO.TextBody & Request("#sides_text") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Cover Paper Finish: " objCDO.TextBody = objCDO.TextBody & Request("cover_finish") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Cover Paper Weight: " objCDO.TextBody = objCDO.TextBody & Request("cover_weight") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Description of Cover Paper: " objCDO.TextBody = objCDO.TextBody & Request("description_of_cover_paper") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Ink-Cover: " objCDO.TextBody = objCDO.TextBody & Request("#colors_cover") objCDO.TextBody = objCDO.TextBody & " over " objCDO.TextBody = objCDO.TextBody & Request("#sides_cover") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Artwork Supplied Via: " objCDO.TextBody = objCDO.TextBody & Request("artwork_supplied_via") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Proofs Required: " objCDO.TextBody = objCDO.TextBody & Request("proofs_required") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Compostion of Art: " objCDO.TextBody = objCDO.TextBody & Request("composition_of_art") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Binds: " objCDO.TextBody = objCDO.TextBody & Request("how_to_bind") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Special Instructions: " objCDO.TextBody = objCDO.TextBody & Request("special_instructions") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Packaging and Delivery Information: " objCDO.TextBody = objCDO.TextBody & Request("packing_delivery") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Production Schedule: " objCDO.TextBody = objCDO.TextBody & Request("production_schedule") objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to ' Response.Write "Your Message has been sent. Thank you!" Response.Redirect "http://www.vanard.com/thanks.htm" Response.End end if %> Vanard Lithographers Union Printer San Diego California










Quote Form
">
Name
E-mail Address
Company Name
Phone Number Fax Number
Description of Job
Quantity Number of Pages
Size: Flat Size: Finished

 TEXT

 COVER
 
Paper Finish: Coated Coated
Uncoated Uncoated
Paper Weight: 60lb. 60lb.
70lb. 70lb.
80lb. 80lb.
100lb. 100lb.
other other
Description of
Text Paper:
Description of
Cover Paper:
Please check all that apply:

 Artwork Provided

 Proofs Required

 Composition of Art
Disk supplied Blueline Text
Camera Ready Art Ink Jet Screens
E-mail or FTP Site   Halftones
Film supplied   Bleeds
How many colors? (Side one text) How many colors? (Side two text)
How many colors? (Side one cover) How many colors? (Side two cover)
How does it bind?
Special Instructions?
Packaging and Delivery Information?
Production Schedule?
We recommend that you print this form for your records before submitting.



Home | About Vanard | Equipment List | Customer Service | Convention Services
Answers to your Printing Questions | Submit Quote Form | Contact Us | Directions/Map



© 2000 - 2012 Vanard Lithographers, Inc. All rights reserved.