<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "The Cutler Web Site|WA|donotreply@cutlerforestproducts.com" MailSubject = "Someone Has Submitted The Online Order Form" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("smtp10.on.aibn.com","25","","","","") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Character Set set WA_MailObject = WAUE_SetCharset(WA_MailObject,"ISO-8859-1") 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body if (cStr(Trim(Request.Form("Dealer_Name"))) <>"") then MailBody = MailBody & "Dealer Name: " MailBody = MailBody & cStr(Request.Form("Dealer_Name")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Tag_Number"))) <>"") then MailBody = MailBody & "Tag Number: " MailBody = MailBody & cStr(Request.Form("Tag_Number")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Style"))) <>"") then MailBody = MailBody & "Door Style: " MailBody = MailBody & cStr(Request.Form("Door_Style")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Date"))) <>"") then MailBody = MailBody & "Date: " MailBody = MailBody & cStr(Request.Form("Date")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Requested_Ship_Date"))) <>"") then MailBody = MailBody & "Requested Ship Date: " MailBody = MailBody & cStr(Request.Form("Requested_Ship_Date")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drilling"))) <>"") then MailBody = MailBody & "Drilling: " MailBody = MailBody & cStr(Request.Form("Drilling")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Colour"))) <>"") then MailBody = MailBody & "Door Colour: " MailBody = MailBody & cStr(Request.Form("Door_Colour")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_1"))) <>"") then MailBody = MailBody & "Door Drill Location 1: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_1"))) <>"") then MailBody = MailBody & "Door Qty 1: " MailBody = MailBody & cStr(Request.Form("Door_Qty_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_1"))) <>"") then MailBody = MailBody & "Door Width 1: " MailBody = MailBody & cStr(Request.Form("Door_Width_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_1"))) <>"") then MailBody = MailBody & "Door Height 1: " MailBody = MailBody & cStr(Request.Form("Door_Height_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_2"))) <>"") then MailBody = MailBody & "Door Drill Location 2: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_2"))) <>"") then MailBody = MailBody & "Door Qty 2: " MailBody = MailBody & cStr(Request.Form("Door_Qty_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_2"))) <>"") then MailBody = MailBody & "Door Width 2: " MailBody = MailBody & cStr(Request.Form("Door_Width_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_2"))) <>"") then MailBody = MailBody & "Door Height 2: " MailBody = MailBody & cStr(Request.Form("Door_Height_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_3"))) <>"") then MailBody = MailBody & "Door Drill Location 3: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_3"))) <>"") then MailBody = MailBody & "Door Qty 3: " MailBody = MailBody & cStr(Request.Form("Door_Qty_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_3"))) <>"") then MailBody = MailBody & "Door Width 3: " MailBody = MailBody & cStr(Request.Form("Door_Width_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_3"))) <>"") then MailBody = MailBody & "Door Height 3: " MailBody = MailBody & cStr(Request.Form("Door_Height_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_4"))) <>"") then MailBody = MailBody & "Door Drill Location 4: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_4"))) <>"") then MailBody = MailBody & "Door Qty 4: " MailBody = MailBody & cStr(Request.Form("Door_Qty_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_4"))) <>"") then MailBody = MailBody & "Door Width 4: " MailBody = MailBody & cStr(Request.Form("Door_Width_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_4"))) <>"") then MailBody = MailBody & "Door Height 4: " MailBody = MailBody & cStr(Request.Form("Door_Height_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_5"))) <>"") then MailBody = MailBody & "Door Drill Location 5: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_5"))) <>"") then MailBody = MailBody & "Door Qty 5: " MailBody = MailBody & cStr(Request.Form("Door_Qty_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_5"))) <>"") then MailBody = MailBody & "Door Width 5: " MailBody = MailBody & cStr(Request.Form("Door_Width_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_5"))) <>"") then MailBody = MailBody & "Door Height 5: " MailBody = MailBody & cStr(Request.Form("Door_Height_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_6"))) <>"") then MailBody = MailBody & "Door Drill Location 6: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_6"))) <>"") then MailBody = MailBody & "Door Qty 6: " MailBody = MailBody & cStr(Request.Form("Door_Qty_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_6"))) <>"") then MailBody = MailBody & "Door Width 6: " MailBody = MailBody & cStr(Request.Form("Door_Width_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_6"))) <>"") then MailBody = MailBody & "Door Height 6: " MailBody = MailBody & cStr(Request.Form("Door_Height_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_7"))) <>"") then MailBody = MailBody & "Door Drill Location 7: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_7"))) <>"") then MailBody = MailBody & "Door Qty 7: " MailBody = MailBody & cStr(Request.Form("Door_Qty_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_7"))) <>"") then MailBody = MailBody & "Door Width 7: " MailBody = MailBody & cStr(Request.Form("Door_Width_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_7"))) <>"") then MailBody = MailBody & "Door Height 7: " MailBody = MailBody & cStr(Request.Form("Door_Height_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_8"))) <>"") then MailBody = MailBody & "Door Drill Location 8: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_8"))) <>"") then MailBody = MailBody & "Door Qty 8: " MailBody = MailBody & cStr(Request.Form("Door_Qty_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_8"))) <>"") then MailBody = MailBody & "Door Width 8: " MailBody = MailBody & cStr(Request.Form("Door_Width_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_8"))) <>"") then MailBody = MailBody & "Door Height 8: " MailBody = MailBody & cStr(Request.Form("Door_Height_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_9"))) <>"") then MailBody = MailBody & "Door Drill Location 9: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_9"))) <>"") then MailBody = MailBody & "Door Qty 9: " MailBody = MailBody & cStr(Request.Form("Door_Qty_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_9"))) <>"") then MailBody = MailBody & "Door Width 9: " MailBody = MailBody & cStr(Request.Form("Door_Width_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_9"))) <>"") then MailBody = MailBody & "Door Height 9: " MailBody = MailBody & cStr(Request.Form("Door_Height_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_10"))) <>"") then MailBody = MailBody & "Door Drill Location 10: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_10")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_10"))) <>"") then MailBody = MailBody & "Door Qty 10: " MailBody = MailBody & cStr(Request.Form("Door_Qty_10")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_10"))) <>"") then MailBody = MailBody & "Door Width 10: " MailBody = MailBody & cStr(Request.Form("Door_Width_10")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_10"))) <>"") then MailBody = MailBody & "Door Height 10: " MailBody = MailBody & cStr(Request.Form("Door_Height_10")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_11"))) <>"") then MailBody = MailBody & "Door Drill Location 11: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_11")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_11"))) <>"") then MailBody = MailBody & "Door Qty 11: " MailBody = MailBody & cStr(Request.Form("Door_Qty_11")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_11"))) <>"") then MailBody = MailBody & "Door Width 11: " MailBody = MailBody & cStr(Request.Form("Door_Width_11")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_11"))) <>"") then MailBody = MailBody & "Door Height 1: " MailBody = MailBody & cStr(Request.Form("Door_Height_11")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Drill_Location_12"))) <>"") then MailBody = MailBody & "Door Drill Location 12: " MailBody = MailBody & cStr(Request.Form("Door_Drill_Location_12")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Qty_12"))) <>"") then MailBody = MailBody & "Door Qty 12: " MailBody = MailBody & cStr(Request.Form("Door_Qty_12")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Width_12"))) <>"") then MailBody = MailBody & "Door Width 12: " MailBody = MailBody & cStr(Request.Form("Door_Width_12")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Door_Height_12"))) <>"") then MailBody = MailBody & "Door Height 12: " MailBody = MailBody & cStr(Request.Form("Door_Height_12")) MailBody = MailBody & "

" & vbCrlf & "" end if MailBody = MailBody & "End of Doors Table" MailBody = MailBody & "
" MailBody = MailBody & "---------------------------------------------------------------" MailBody = MailBody & "

" & vbCrlf & "" ' if (cStr(Trim(Request.Form("Drawer_Front_Qty_1"))) <>"") then MailBody = MailBody & "Drawer Front Qty 1: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_1"))) <>"") then MailBody = MailBody & "Drawer Front Width 1: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_1"))) <>"") then MailBody = MailBody & "Drawer Front Height 1: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_2"))) <>"") then MailBody = MailBody & "Drawer Front Qty 2: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_2"))) <>"") then MailBody = MailBody & "Drawer Front Width 2: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_2"))) <>"") then MailBody = MailBody & "Drawer Front Height 2: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_3"))) <>"") then MailBody = MailBody & "Drawer Front Qty 3: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_3"))) <>"") then MailBody = MailBody & "Drawer Front Width 3: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_3"))) <>"") then MailBody = MailBody & "Drawer Front Height 3: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_4"))) <>"") then MailBody = MailBody & "Drawer Front Qty 4: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_4"))) <>"") then MailBody = MailBody & "Drawer Front Width 4: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_4"))) <>"") then MailBody = MailBody & "Drawer Front Height 4: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_5"))) <>"") then MailBody = MailBody & "Drawer Front Qty 5: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_5"))) <>"") then MailBody = MailBody & "Drawer Front Width 5: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_5"))) <>"") then MailBody = MailBody & "Drawer Front Height 5: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_6"))) <>"") then MailBody = MailBody & "Drawer Front Qty 6: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_6"))) <>"") then MailBody = MailBody & "Drawer Front Width 6: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_6"))) <>"") then MailBody = MailBody & "Drawer Front Height 6: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_7"))) <>"") then MailBody = MailBody & "Drawer Front Qty 7: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_7"))) <>"") then MailBody = MailBody & "Drawer Front Width 7: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_7"))) <>"") then MailBody = MailBody & "Drawer Front Height 7: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_8"))) <>"") then MailBody = MailBody & "Drawer Front Qty 8: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_8"))) <>"") then MailBody = MailBody & "Drawer Front Width 8: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_8"))) <>"") then MailBody = MailBody & "Drawer Front Height 8: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Qty_9"))) <>"") then MailBody = MailBody & "Drawer Front Qty 9: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Qty_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Width_9"))) <>"") then MailBody = MailBody & "Drawer Front Width 9: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Width_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Drawer_Front_Height_9"))) <>"") then MailBody = MailBody & "Drawer Front Height 9: " MailBody = MailBody & cStr(Request.Form("Drawer_Front_Height_9")) MailBody = MailBody & "

" & vbCrlf & "" end if MailBody = MailBody & "End of Drawer Fronts Table" MailBody = MailBody & "
" MailBody = MailBody & "---------------------------------------------------------------" MailBody = MailBody & "

" & vbCrlf & "" ' if (cStr(Trim(Request.Form("Frame_Door_Drill_Location_1"))) <>"") then MailBody = MailBody & "Frame Door Drill Location 1: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Drill_Location_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Qty_1"))) <>"") then MailBody = MailBody & "Frame Door Qty 1: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Qty_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Width_1"))) <>"") then MailBody = MailBody & "Frame Door Width 1: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Width_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Height_1"))) <>"") then MailBody = MailBody & "Frame Door Height 1: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Height_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Drill_Location_2"))) <>"") then MailBody = MailBody & "Frame Door Drill Location 2: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Drill_Location_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Qty_2"))) <>"") then MailBody = MailBody & "Frame Door Qty 2: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Qty_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Width_2"))) <>"") then MailBody = MailBody & "Frame Door Width 2: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Width_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Height_2"))) <>"") then MailBody = MailBody & "Frame Door Height 2: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Height_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Drill_Location_3"))) <>"") then MailBody = MailBody & "Frame Door Drill Location 3: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Drill_Location_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Qty_3"))) <>"") then MailBody = MailBody & "Frame Door Qty 3: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Qty_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Width_3"))) <>"") then MailBody = MailBody & "Frame Door Width 3: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Width_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Height_3"))) <>"") then MailBody = MailBody & "Frame Door Height 3: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Height_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Drill_Location_4"))) <>"") then MailBody = MailBody & "Frame Door Drill Location 4: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Drill_Location_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Qty_4"))) <>"") then MailBody = MailBody & "Frame Door Qty 4: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Qty_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Width_4"))) <>"") then MailBody = MailBody & "Frame Door Width 4: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Width_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Frame_Door_Height_4"))) <>"") then MailBody = MailBody & "Frame Door Height 4: " MailBody = MailBody & cStr(Request.Form("Frame_Door_Height_4")) MailBody = MailBody & "

" & vbCrlf & "" end if MailBody = MailBody & "End of Frame Doors Table" MailBody = MailBody & "
" MailBody = MailBody & "---------------------------------------------------------------" MailBody = MailBody & "

" & vbCrlf & "" ' if (cStr(Trim(Request.Form("Moulding_Qty_1"))) <>"") then MailBody = MailBody & "Moulding Qty 1: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_1"))) <>"") then MailBody = MailBody & "Moulding Description 1: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_1"))) <>"") then MailBody = MailBody & "Moulding Color 1: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_2"))) <>"") then MailBody = MailBody & "Moulding Qty 2: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_2"))) <>"") then MailBody = MailBody & "Moulding Description 2: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_2"))) <>"") then MailBody = MailBody & "Moulding Color 2: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_3"))) <>"") then MailBody = MailBody & "Moulding Qty 3: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_3"))) <>"") then MailBody = MailBody & "Moulding Description 3: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_3"))) <>"") then MailBody = MailBody & "Moulding Color 3: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_4"))) <>"") then MailBody = MailBody & "Moulding Qty 4: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_4"))) <>"") then MailBody = MailBody & "Moulding Description 4: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_4"))) <>"") then MailBody = MailBody & "Moulding Color 4: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_4")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_5"))) <>"") then MailBody = MailBody & "Moulding Qty 5: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_5"))) <>"") then MailBody = MailBody & "Moulding Description 5: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_5"))) <>"") then MailBody = MailBody & "Moulding Color 5: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_5")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_6"))) <>"") then MailBody = MailBody & "Moulding Qty 6: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_6"))) <>"") then MailBody = MailBody & "Moulding Description 6: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_6"))) <>"") then MailBody = MailBody & "Moulding Color 6: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_6")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_7"))) <>"") then MailBody = MailBody & "Moulding Qty 7: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_7"))) <>"") then MailBody = MailBody & "Moulding Description 7: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_7"))) <>"") then MailBody = MailBody & "Moulding Color 7: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_7")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_8"))) <>"") then MailBody = MailBody & "Moulding Qty 8: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_8"))) <>"") then MailBody = MailBody & "Moulding Description 8: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_8"))) <>"") then MailBody = MailBody & "Moulding Color 8: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_8")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_9"))) <>"") then MailBody = MailBody & "Moulding Qty 9: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_9"))) <>"") then MailBody = MailBody & "Moulding Description 9: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_9"))) <>"") then MailBody = MailBody & "Moulding Color 9: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_9")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_10"))) <>"") then MailBody = MailBody & "Moulding Qty 10: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_10")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_10"))) <>"") then MailBody = MailBody & "Moulding Description 10: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_10")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_10"))) <>"") then MailBody = MailBody & "Moulding Color 10: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_10")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_11"))) <>"") then MailBody = MailBody & "Moulding Qty 11: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_11")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_11"))) <>"") then MailBody = MailBody & "Moulding Description 11: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_11")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_11"))) <>"") then MailBody = MailBody & "Moulding Color 11: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_11")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_12"))) <>"") then MailBody = MailBody & "Moulding Qty 12: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_12")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_12"))) <>"") then MailBody = MailBody & "Moulding Description 12: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_12")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_12"))) <>"") then MailBody = MailBody & "Moulding Color 12: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_12")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_13"))) <>"") then MailBody = MailBody & "Moulding Qty 13: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_13")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_13"))) <>"") then MailBody = MailBody & "Moulding Description 13: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_13")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_13"))) <>"") then MailBody = MailBody & "Moulding Color 13: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_13")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Qty_14"))) <>"") then MailBody = MailBody & "Moulding Qty 14: " MailBody = MailBody & cStr(Request.Form("Moulding_Qty_14")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Description_14"))) <>"") then MailBody = MailBody & "Moulding Description 14: " MailBody = MailBody & cStr(Request.Form("Moulding_Description_14")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Moulding_Color_14"))) <>"") then MailBody = MailBody & "Moulding Color 14: " MailBody = MailBody & cStr(Request.Form("Moulding_Color_14")) MailBody = MailBody & "

" & vbCrlf & "" end if MailBody = MailBody & "End of Mouldings Table" MailBody = MailBody & "
" MailBody = MailBody & "---------------------------------------------------------------" MailBody = MailBody & "

" & vbCrlf & "" ' if (cStr(Trim(Request.Form("Sheet_Stock_Qty_1"))) <>"") then MailBody = MailBody & "Sheet Stock Qty 1: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Qty_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Size_1"))) <>"") then MailBody = MailBody & "Sheet Stock Size 1: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Size_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Colour_1"))) <>"") then MailBody = MailBody & "Sheet Stock Colour 1: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Colour_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Qty_2"))) <>"") then MailBody = MailBody & "Sheet Stock Qty 2: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Qty_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Size_2"))) <>"") then MailBody = MailBody & "Sheet Stock Size 2: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Size_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Colour_2"))) <>"") then MailBody = MailBody & "Sheet Stock Colour 2: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Colour_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Qty_3"))) <>"") then MailBody = MailBody & "Sheet Stock Qty 3: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Qty_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Size_3"))) <>"") then MailBody = MailBody & "Sheet Stock Size 3: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Size_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Sheet_Stock_Colour_3"))) <>"") then MailBody = MailBody & "Sheet Stock Colour 3: " MailBody = MailBody & cStr(Request.Form("Sheet_Stock_Colour_3")) MailBody = MailBody & "

" & vbCrlf & "" end if MailBody = MailBody & "End of Sheet Stock Table" MailBody = MailBody & "
" MailBody = MailBody & "---------------------------------------------------------------" MailBody = MailBody & "

" & vbCrlf & "" ' if (cStr(Trim(Request.Form("Get_Tape_Qty_1"))) <>"") then MailBody = MailBody & "Get Tape Qty 1: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Qty_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Type_1"))) <>"") then MailBody = MailBody & "Get Tape Type 1: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Type_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Colour_1"))) <>"") then MailBody = MailBody & "Get Tape_Colour 1: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Colour_1")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Qty_2"))) <>"") then MailBody = MailBody & "Get Tape Qty 2: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Qty_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Type_2"))) <>"") then MailBody = MailBody & "Get Tape Type 2: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Type_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Colour_2"))) <>"") then MailBody = MailBody & "Get Tape_Colour 2: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Colour_2")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Qty_3"))) <>"") then MailBody = MailBody & "Get Tape Qty 3: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Qty_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Type_3"))) <>"") then MailBody = MailBody & "Get Tape Type 3: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Type_3")) MailBody = MailBody & "

" & vbCrlf & "" end if if (cStr(Trim(Request.Form("Get_Tape_Colour_3"))) <>"") then MailBody = MailBody & "Get Tape_Colour 3: " MailBody = MailBody & cStr(Request.Form("Get_Tape_Colour_3")) MailBody = MailBody & "

" & vbCrlf & "" end if MailBody = MailBody & "End of Get Tape Table" MailBody = MailBody & "
" MailBody = MailBody & "---------------------------------------------------------------" MailBody = MailBody & "

" & vbCrlf & "" ' 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((cStr(Request.Form("Place_My_Order")) <> "")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("sales@cutlerforestproducts.com") 'Send Mail All Entries if ("order_received.html"<>"") then Response.Redirect("order_received.html") end if end if %> Cutler Forest Products Inc.
Company Info Client Case Studies Facilities
SuppliersOrdering & FulfillmentContact Us
Order Online
 

Cutler Conditions of Sale:
Check All Orders Received Within 24 Hours
No Changes To Orders After 48 Hours
Remakes Require 72 Hours With Written Consent

 
   
Dealer Information
Dealer Name:
Date:
Colour:
Tag/P.O.#:
Requested Ship Date:
Style:
Drill:
 


Doors, Drawer Fronts, Frame Doors and Mouldings
DOORS
Select Door Design    
Drill Location
QTY
 WIDTH HEIGHT
Left Right


MOULDINGS
QTY DESC COLOUR
 
DRAWER FRONTS
FRAME & PANEL DESIGN
QTY WIDTH HEIGHT

FRAME DOORS
Drill Location
QTY
 WIDTH HEIGHT
Left Right
ONE LITE — FRAME ONLY


Sheet Stock and Get Tape

Manufactured items & Cutler Forest Products In Stock Items

SHEET STOCK
QTY SIZE COLOUR
 
GET TAPE
QTY TYPE COLOUR