<%option explicit%> <% ' here is the server side code ' declare the variables that we are going to use and set their values dim strFirstname, strLastname, strCompany, strTitle, straddress1, straddress2 dim strCity, strstate, strzip, stremail, strphone, strfax, strinterest, strcomments dim strbagstyles, strdispensers, strcolor, strproducttype, strcustomcomments dim strMessage, blnPosted blnPosted = Request.Form("posted") 'Response.write is used by the programmer to help in the debugging processes 'Response.Write "[" & blnPosted & "]
" 'Response.Write "[" & Request.Form("posted") & "]
" if cBool(blnPosted) = true then strFirstname = Request.Form("firstname") strLastname = Request.Form("lastname") strCompany = Request.Form("company") strTitle = Request.Form("title") strAddress1 = Request.Form("address1") strAddress2 = Request.Form("address2") strCity = Request.Form("city") strState = Request.Form("state") strZip = Request.Form("zip") strEmail = Request.Form("email") strPhone = Request.Form("phone") strFax = Request.Form("fax") strcomments = Request.Form("comments") strbagstyles = Request.Form("bagstyles") strdispensers = Request.Form("dispensers") strcolor = Request.Form("color") strproducttype = Request.Form("producttype") strcustomcomments = Request.Form("customcomments") 'Response.Write "Firstname: " & strFirstname & "
" 'Response.Write "Lastname: " & strLastname & "
" 'Response.Write "Company: " & strCompany & "
" 'Response.End Dim strBody, objNewMail Set objNewMail = Server.CreateObject("CDONTS.NewMail") strBody = "The following information has been submitted. " & vbCRLF & vbCRLF strBody = strBody & "Company_name: " & strCompany & vbCRLF strBody = strBody & "Firstname: " & strFirstname & vbCRLF strBody = strBody & "Lastname: " & strLastname & vbCRLF strBody = strBody & "Title: " & strTitle & vbCRLF strBody = strBody & "Phone: " & strPhone & vbCRLF strBody = strBody & "Fax: " & strFax & vbCRLF strBody = strBody & "Email: " & strEmail & vbCRLF & vbCRLF strBody = strBody & "Address1: " & strAddress1 & vbCRLF strBody = strBody & "Address2: " & strAddress2 & vbCRLF strBody = strBody & "City: " & strCity & vbCRLF strBody = strBody & "State: " & strState & vbCRLF strBody = strBody & "Zip: " & strZip & vbCRLF strBody = strBody & "Comments: " & strcomments & vbCRLF & vbCRLF strBody = strBody & "Interested in bag styles: " & strbagstyles & vbCRLF strBody = strBody & "Interested in dispensers: " & strdispensers & vbCRLF strBody = strBody & "Interested in color: " & strcolor & vbCRLF strBody = strBody & "Interested in product type: " & strproducttype & vbCRLF strBody = strBody & "Custom Printing Comments: " & strcustomcomments & vbCRLF with objNewMail .Body = strBody .From = "info@trimarkpackaging.com" .To = "mfreedman@trimarkpackaging.com; lturner@webdefinition.com" .Subject = "Request for Quote" .Send end with set objNewMail = nothing Response.Redirect "thankyou.htm" end if %> TriMark Packaging - Request for Quote


Please fill out the request for quote form provided below and a TriMark representative will contact you with within 2 business days. Thank you for your interest in TriMark Packaging.

<%if len(strMessage) > 0 then%> <%=strMessage%>
<%END if%>

*First Name
*Last Name
*Company
Title
Address
Address (cont'd)
City
State/Province
Zip/Postal Code
*Phone Number
Fax Number
E-mail

Comments & Special Requests:


* required fields
I am interested in the following bag styles:
Check all that apply
T-shirt bags
Patch Handle Bags
Shopping Bags
Produce Rolls
Wicketted Bags
Header Bags
Bottom & Side Gusset
FDA Approved Bags
Flat Bottom Bags
Merchandise Bags
Soft Loop Handle Bags
Perforated on a Roll
 Deli Bags
Wave Top Bags
Garment Bag
Fold-Over Die-Cut
Die-Cut Bags
Roll Stock
Can Liners
Bibs & Aprons
Draw String Bags
Thick/Thin Bags
Other

I am interested in the following bag dispensers:
Check all that apply
T-shirt Dispenser
Padded Bag Dispenser
Towel Bar Dispenser
Dual Towel Bar Dispenser
Interleaving Bag Dispenser

I am interested in the following color:
White
Clear
Other

I am interested in the following product type:
Stock Products
Custom Printing

If custom printing please provide details:
Please note that there are minimum requirements for custom printed products.