% Dim bodystring bodystring = bodystring + Request.Form ("name1") + " from " + Request.Form ("company1") + " just placed the following order... " + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "ORDER INFORMATION" + vbCrLf bodystring = bodystring + "-----------------" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "- Accessories -" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Halogen Arm Light-Pkgs1&4 (2001-U): $" + Request.Form ("acc_lght1_price") + " X Qty of " + Request.Form ("acc_lght1_qty") + " = $" + Request.Form ("acc_lght1_total") + " Total" + vbCrLf bodystring = bodystring + "Halogen Arm Light-Pkgs2,3,5,6&7 (2001-04): $" + Request.Form ("acc_lght2_price") + " X Qty of " + Request.Form ("acc_lght2_qty") + " = $" + Request.Form ("acc_lght2_total") + " Total" + vbCrLf bodystring = bodystring + "Las Vegas Lights-Pkgs2,3&5 (2005-04-250): $" + Request.Form ("acc_lvlghts_price") + " X Qty of " + Request.Form ("acc_lvlghts_qty") + " = $" + Request.Form ("acc_lvlghts_total") + " Total" + vbCrLf bodystring = bodystring + "Case Conversion Top-Pkgs1,2&4 (9530): $" + Request.Form ("acc_conv1_price") + " X Qty of " + Request.Form ("acc_conv1_qty") + " = $" + Request.Form ("acc_conv1_total") + " Total" + vbCrLf bodystring = bodystring + "Case Conversion Top-Pkgs3&5 (19500-000): $" + Request.Form ("acc_conv2_price") + " X Qty of " + Request.Form ("acc_conv2_qty") + " = $" + Request.Form ("acc_conv2_total") + " Total" + vbCrLf bodystring = bodystring + "Foam for Light Kit-Pkgs1,2&4 (9527): $" + Request.Form ("acc_lgtkit1_price") + " X Qty of " + Request.Form ("acc_lgtkit1_qty") + " = $" + Request.Form ("acc_lgtkit1_total") + " Total" + vbCrLf bodystring = bodystring + "Foam for Light Kit-Pkgs3&5 (9527-01): $" + Request.Form ("acc_lgtkit2_price") + " X Qty of " + Request.Form ("acc_lgtkit2_qty") + " = $" + Request.Form ("acc_lgtkit2_total") + " Total" + vbCrLf bodystring = bodystring + "Bag for Light Kit-Pkgs6&7 (4709-02): $" + Request.Form ("acc_lgtbag_price") + " X Qty of " + Request.Form ("acc_lgtkbag_qty") + " = $" + Request.Form ("acc_lgtbag_total") + " Total" + vbCrLf bodystring = bodystring + "Extension Cord (2006): $" + Request.Form ("acc_extcord_price") + " X Qty of " + Request.Form ("acc_extcord_qty") + " = $" + Request.Form ("acc_extcord_total") + " Total" + vbCrLf bodystring = bodystring + "Power Strip (6 outlet) (2007): $" + Request.Form ("acc_pwrstrip_price") + " X Qty of " + Request.Form ("acc_pwrstrip_qty") + " = $" + Request.Form ("acc_pwrstrip_total") + " Total" + vbCrLf bodystring = bodystring + "Backlit Header (incandescent)-Pkg2 (10222-05I): $" + Request.Form ("acc_hdri2_price") + " X Qty of " + Request.Form ("acc_hdri2_qty") + " = $" + Request.Form ("acc_hdri2_total") + " Total" + vbCrLf bodystring = bodystring + "Backlit Header (fluorescent)-Pkg2 (10222-05): $" + Request.Form ("acc_hdrf2_price") + " X Qty of " + Request.Form ("acc_hdrf2_qty") + " = $" + Request.Form ("acc_hdrf2_total") + " Total" + vbCrLf bodystring = bodystring + "Backlit Header (incandescent)-Pkg3 (10222-06I): $" + Request.Form ("acc_hdri3_price") + " X Qty of " + Request.Form ("acc_hdri3_qty") + " = $" + Request.Form ("acc_hdri3_total") + " Total" + vbCrLf bodystring = bodystring + "Backlit Header (fluorescent)-Pkg3 (10222-06): $" + Request.Form ("acc_hdrf3_price") + " X Qty of " + Request.Form ("acc_hdrf3_qty") + " = $" + Request.Form ("acc_hdrf3_total") + " Total" + vbCrLf bodystring = bodystring + "Basic Shelf Package-all pkgs (10301): $" + Request.Form ("acc_shelfb_price") + " X Qty of " + Request.Form ("acc_shelfb_qty") + " = $" + Request.Form ("acc_shelfb_total") + " Total" + vbCrLf bodystring = bodystring + "Premium Shelf Package-all pkgs (10303): $" + Request.Form ("acc_shelfp_price") + " X Qty of " + Request.Form ("acc_shelfp_qty") + " = $" + Request.Form ("acc_shelfp_total") + " Total" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "- Cases -" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "All In One Case-Pkgs1,2&4 (4400NL): $" + Request.Form ("case1_price") + " X Qty of " + Request.Form ("case1_qty") + " = $" + Request.Form ("case1_total") + " Total" + vbCrLf bodystring = bodystring + "Modular 3pc Case-Pkgs3&5 (4500): $" + Request.Form ("case2_price") + " X Qty of " + Request.Form ("case2_qty") + " = $" + Request.Form ("case2_total") + " Total" + vbCrLf bodystring = bodystring + "Cylindrical Case-Pkgs6&7 (4106): $" + Request.Form ("case3_price") + " X Qty of " + Request.Form ("case3_qty") + " = $" + Request.Form ("case3_total") + " Total" + vbCrLf bodystring = bodystring + "4200A Case (4200A-PL): $" + Request.Form ("case4200a_price") + " X Qty of " + Request.Form ("case4200a_qty") + " = $" + Request.Form ("case4200a_total") + " Total" + vbCrLf bodystring = bodystring + "4200B Case (4200B-PL): $" + Request.Form ("case4200b_price") + " X Qty of " + Request.Form ("case4200b_qty") + " = $" + Request.Form ("case4200b_total") + " Total" + vbCrLf bodystring = bodystring + "4200 A-B Conversion (17000-000): $" + Request.Form ("case4200_conv_price") + " X Qty of " + Request.Form ("case4200_conv_qty") + " = $" + Request.Form ("case4200_conv_total") + " Total" + vbCrLf bodystring = bodystring + "4200 Blotter (7275): $" + Request.Form ("case4200_blotter_price") + " X Qty of " + Request.Form ("case4200_blotter_qty") + " = $" + Request.Form ("case4200_blotter_total") + " Total" + vbCrLf bodystring = bodystring + "4200 Instructions (9904-42-44-45): $" + Request.Form ("case4200_instrc_price") + " X Qty of " + Request.Form ("case4200_instrc_qty") + " = $" + Request.Form ("case4200_instruc_total") + " Total" + vbCrLf bodystring = bodystring + "Graphics Case (12 X 26) (4150): $" + Request.Form ("case_graph_26_price") + " X Qty of " + Request.Form ("case_graph_26_qty") + " = $" + Request.Form ("case_graph_26_total") + " Total" + vbCrLf bodystring = bodystring + "Graphics Case (12 X 38) (4151): $" + Request.Form ("case_graph_38_price") + " X Qty of " + Request.Form ("case_graph_38_qty") + " = $" + Request.Form ("case_graph_38_total") + " Total" + vbCrLf bodystring = bodystring + "Graphics Case (12 X 50) (4152): $" + Request.Form ("case_graph_50_price") + " X Qty of " + Request.Form ("case_graph_50_qty") + " = $" + Request.Form ("case_graph_50_total") + " Total" + vbCrLf bodystring = bodystring + "Graphics Case (12 X 72) (4153): $" + Request.Form ("case_graph_72_price") + " X Qty of " + Request.Form ("case_graph_72_qty") + " = $" + Request.Form ("case_graph_72_total") + " Total" + vbCrLf bodystring = bodystring + "Graphics Case (16 X 42) (4154): $" + Request.Form ("case_graph_42_price") + " X Qty of " + Request.Form ("case_graph_42_qty") + " = $" + Request.Form ("case_graph_42_total") + " Total" + vbCrLf bodystring = bodystring + "Graphics Case (16 X 50) (4155): $" + Request.Form ("case_graph_1650_price") + " X Qty of " + Request.Form ("case_graph_1650_qty") + " = $" + Request.Form ("case_graph_1650_total") + " Total" + vbCrLf bodystring = bodystring + "Graphics Case (12 X 32) (4156): $" + Request.Form ("case_graph_32_price") + " X Qty of " + Request.Form ("case_graph_32_qty") + " = $" + Request.Form ("case_graph_32_total") + " Total" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "- Hardware -" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "10ft Aluminum Frame-Pkg1 (1010-101): $" + Request.Form ("hw_frame1_price") + " X Qty of " + Request.Form ("hw_frame1_qty") + " = $" + Request.Form ("hw_frame1_total") + " Total" + vbCrLf bodystring = bodystring + "10ft Aluminum Frame-Pkgs2&3 (1010-102): $" + Request.Form ("hw_frame2_price") + " X Qty of " + Request.Form ("hw_frame2_qty") + " = $" + Request.Form ("hw_frame2_total") + " Total" + vbCrLf bodystring = bodystring + "8ft Aluminum Frame-Pkg4 (1008-101): $" + Request.Form ("hw_frame4_price") + " X Qty of " + Request.Form ("hw_frame4_qty") + " = $" + Request.Form ("hw_frame4_total") + " Total" + vbCrLf bodystring = bodystring + "8ft Aluminum Frame-Pkg5 (1008-102): $" + Request.Form ("hw_frame5_price") + " X Qty of " + Request.Form ("hw_frame5_qty") + " = $" + Request.Form ("hw_frame5_total") + " Total" + vbCrLf bodystring = bodystring + "Tabletop 8ft Aluminum Frame-Pkg6 (1005-102): $" + Request.Form ("hw_ttframe6_price") + " X Qty of " + Request.Form ("hw_ttframe6_qty") + " = $" + Request.Form ("hw_ttframe6_total") + " Total" + vbCrLf bodystring = bodystring + "Tabletop 6ft Aluminum Frame-Pkg7 (1004-102): $" + Request.Form ("hw_ttframe7_price") + " X Qty of " + Request.Form ("hw_ttframe7_qty") + " = $" + Request.Form ("hw_ttframe7_total") + " Total" + vbCrLf bodystring = bodystring + "Channel Bar-Pkgs1&4 (1845): $" + Request.Form ("hw_chbr1_price") + " X Qty of " + Request.Form ("hw_chbr1_qty") + " = $" + Request.Form ("hw_chbr1_total") + " Total" + vbCrLf bodystring = bodystring + "Channel Bar (w/lights)-Pkgs1&4 (1846): $" + Request.Form ("hw_chbr1a_price") + " X Qty of " + Request.Form ("hw_chbr1a_qty") + " = $" + Request.Form ("hw_chbr1a_total") + " Total" + vbCrLf bodystring = bodystring + "Channel Bar 3pc-Pkgs2,3&5 (1848): $" + Request.Form ("hw_chbr2_price") + " X Qty of " + Request.Form ("hw_chbr2_qty") + " = $" + Request.Form ("hw_chbr2_total") + " Total" + vbCrLf bodystring = bodystring + "Channel Bar 2pc-Pkgs6&7 (1848-01): $" + Request.Form ("hw_chbr3_price") + " X Qty of " + Request.Form ("hw_chbr3_qty") + " = $" + Request.Form ("hw_chbr3_total") + " Total" + vbCrLf bodystring = bodystring + "Frame Bag (4701): $" + Request.Form ("hw_fbag_price") + " X Qty of " + Request.Form ("hw_fbag_qty") + " = $" + Request.Form ("hw_fbag_total") + " Total" + vbCrLf bodystring = bodystring + "Channel Bar Bag (4709-02): $" + Request.Form ("hw_cbag_price") + " X Qty of " + Request.Form ("hw_cbag_qty") + " = $" + Request.Form ("hw_cbag_total") + " Total" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "- Panels -" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Front Panel-Pkgs1,4,8&10 (016-26-CLR): $" + Request.Form ("pnl_f1_price") + " X Qty of " + Request.Form ("pnl_f1_qty") + " = $" + Request.Form ("pnl_f1_total") + " Total" + vbCrLf bodystring = bodystring + "End Panel-Pkgs1,4,8&10 (050-21-CLR): $" + Request.Form ("pnl_e1_price") + " X Qty of " + Request.Form ("pnl_e1_qty") + " = $" + Request.Form ("pnl_e1_total") + " Total" + vbCrLf bodystring = bodystring + "Back Panel-Pkgs1,4,8&10 (016-XX-CLR): $" + Request.Form ("pnl_b1_price") + " X Qty of " + Request.Form ("pnl_b1_qty") + " = $" + Request.Form ("pnl_b1_total") + " Total" + vbCrLf bodystring = bodystring + "Front Panel-Pkgs2,3,5,9&11 (016-63-CLR): $" + Request.Form ("pnl_f2_price") + " X Qty of " + Request.Form ("pnl_f2_qty") + " = $" + Request.Form ("pnl_f2_total") + " Total" + vbCrLf bodystring = bodystring + "End Panel-Pkgs2,3,5,9&11 (050-69-CLR): $" + Request.Form ("pnl_e2_price") + " X Qty of " + Request.Form ("pnl_e2_qty") + " = $" + Request.Form ("pnl_e2_total") + " Total" + vbCrLf bodystring = bodystring + "Back Panel-Pkgs2,3,5,9&11 (016-XX-CLR): $" + Request.Form ("pnl_b2_price") + " X Qty of " + Request.Form ("pnl_b2_qty") + " = $" + Request.Form ("pnl_b2_total") + " Total" + vbCrLf bodystring = bodystring + "Tabletop Front Panel-Pkgs6&7 (C389CLR): $" + Request.Form ("pnl_ttf_price") + " X Qty of " + Request.Form ("pnl_ttf_qty") + " = $" + Request.Form ("pnl_ttf_total") + " Total" + vbCrLf bodystring = bodystring + "Tabletop End Panel-Pkgs6&7 (C379CLR): $" + Request.Form ("pnl_tte_price") + " X Qty of " + Request.Form ("pnl_tte_qty") + " = $" + Request.Form ("pnl_tte_total") + " Total" + vbCrLf bodystring = bodystring + "Lycra Case Conv Skirt-Pkgs1,2&4 (9538): $" + Request.Form ("pnl_skrt1_price") + " X Qty of " + Request.Form ("pnl_skrt1_qty") + " = $" + Request.Form ("pnl_skrt1_total") + " Total" + vbCrLf bodystring = bodystring + "Fabric Case Conv Skirt-Pkgs3&5 (007-01-CLR): $" + Request.Form ("pnl_skrt2_price") + " X Qty of " + Request.Form ("pnl_skrt2_qty") + " = $" + Request.Form ("pnl_skrt2_total") + " Total" + vbCrLf bodystring = bodystring + "Fabric Color: " + Request.Form ("skrt_color_fr") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "- Miscellaneous -" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Panel Peg-All Pkgs (3512S): $" + Request.Form ("peg_price") + " X Qty of " + Request.Form ("peg_qty") + " = $" + Request.Form ("peg_total") + " Total" + vbCrLf bodystring = bodystring + "ABS Top Strip-Pkgs1&4 (9363-08T): $" + Request.Form ("abs_top1_price") + " X Qty of " + Request.Form ("abs_top1_qty") + " = $" + Request.Form ("abs_top1_total") + " Total" + vbCrLf bodystring = bodystring + "ABS Bottom Strip-Pkgs1&4 (9363-07T): $" + Request.Form ("abs_btm1_price") + " X Qty of " + Request.Form ("abs_btm1_qty") + " = $" + Request.Form ("abs_btm1_total") + " Total" + vbCrLf bodystring = bodystring + "ABS Top Strip-Pkgs2,3,5,6&7 (9363-06T): $" + Request.Form ("abs_top2_price") + " X Qty of " + Request.Form ("abs_top2_qty") + " = $" + Request.Form ("abs_top2_total") + " Total" + vbCrLf bodystring = bodystring + "ABS Bottom Strip-Pkgs2,3,5,6&7 (9363-05T): $" + Request.Form ("abs_btm2_price") + " X Qty of " + Request.Form ("abs_btm2_qty") + " = $" + Request.Form ("abs_btm2_total") + " Total" + vbCrLf bodystring = bodystring + "ABS Top End Strip-All Packages (9326-02T): $" + Request.Form ("abs_top3_price") + " X Qty of " + Request.Form ("abs_top3_qty") + " = $" + Request.Form ("abs_top3_total") + " Total" + vbCrLf bodystring = bodystring + "ABS Bottom End Strip-All Packages (9326-01T): $" + Request.Form ("abs_btm3_price") + " X Qty of " + Request.Form ("abs_btm3_qty") + " = $" + Request.Form ("abs_btm3_total") + " Total" + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "-----------------" + vbCrLf bodystring = bodystring + "Subtotal: $" + Request.Form ("sub_total") + vbCrLf bodystring = bodystring + "Handling: $" + Request.Form ("handling") + vbCrLf bodystring = bodystring + "CA Tax: $" + Request.Form ("ca_tax") + vbCrLf bodystring = bodystring + "TOTAL: $" + Request.Form ("gr_total") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "BILLING INFO" + vbCrLf bodystring = bodystring + "-----------------" + vbCrLf bodystring = bodystring + "Company: " + Request.Form ("company1") + vbCrLf bodystring = bodystring + "Contact: " + Request.Form ("name1") + vbCrLf bodystring = bodystring + "Address 1: " + Request.Form ("address11") + vbCrLf bodystring = bodystring + "Address 2: " + Request.Form ("address21") + vbCrLf bodystring = bodystring + "City: " + Request.Form ("city1") + vbCrLf bodystring = bodystring + "State: " + Request.Form ("state1") + vbCrLf bodystring = bodystring + "Zip Code: " + Request.Form ("zip1") + vbCrLf bodystring = bodystring + "Phone: " + Request.Form ("phone1") + vbCrLf bodystring = bodystring + "Extension: " + Request.Form ("phone_ext1") + vbCrLf bodystring = bodystring + "Fax: " + Request.Form ("fax1") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "Purchase Order: " + Request.Form ("po") + vbCrLf bodystring = bodystring + "eMail Address: " + Request.Form ("email") + vbCrLf bodystring = bodystring + "Where did you hear about us?: " + Request.Form ("hear_about") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "SHIPPING INFO" + vbCrLf bodystring = bodystring + "-----------------" + vbCrLf bodystring = bodystring + "Company: " + Request.Form ("company2") + vbCrLf bodystring = bodystring + "Contact: " + Request.Form ("name2") + vbCrLf bodystring = bodystring + "Address 1: " + Request.Form ("address12") + vbCrLf bodystring = bodystring + "Address 2: " + Request.Form ("address22") + vbCrLf bodystring = bodystring + "City: " + Request.Form ("city2") + vbCrLf bodystring = bodystring + "State: " + Request.Form ("state2") + vbCrLf bodystring = bodystring + "Zip Code: " + Request.Form ("zip2") + vbCrLf bodystring = bodystring + "Phone: " + Request.Form ("phone2") + vbCrLf bodystring = bodystring + "Extension: " + Request.Form ("phone_ext2") + vbCrLf bodystring = bodystring + "Fax: " + Request.Form ("fax2") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "NOTE: Order needed " + Request.Form ("how_soon") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + "COMMENTS or SPECIAL INSTRUCTIONS" + vbCrLf bodystring = bodystring + "-----------------" + vbCrLf bodystring = bodystring + Request.Form ("comments") + vbCrLf bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) bodystring = bodystring + " " + Chr(13) + Chr(10) ' Set objMail = CreateObject("CDONTS.NewMail") ' objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" ' objMail.From = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" ' objMail.To = "jdewitt@abex.com" ' objMail.cc = "marketing@abex.com" ' objMail.bcc = "asawyer@abex.com" Set objMail = Server.CreateObject("Dundas.Mailer") 'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" objMail.FromAddress = "virtual_sender@abex.com" objMail.TOs.Add("jdewitt@abex.com") objMail.Subject = "PrivateLabelPopup.com - PRICE LIST ORDER - POPUP SYSTEMS" objMail.Body = bodystring mailres = objMail.SendMail() set objMail = nothing Set objMail = Server.CreateObject("Dundas.Mailer") 'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" objMail.FromAddress = "virtual_sender@abex.com" objMail.TOs.Add("marketing@abex.com") objMail.Subject = "PrivateLabelPopup.com - PRICE LIST ORDER - POPUP SYSTEMS" objMail.Body = bodystring mailres = objMail.SendMail() set objMail = nothing Set objMail = Server.CreateObject("Dundas.Mailer") 'objMail.FromAddress = Request.Form ("First_Name") & " " & Request.Form ("Last_Name") & " <" & Request.Form ("mailfrom") & ">" objMail.FromAddress = "virtual_sender@abex.com" objMail.TOs.Add("asawyer@abex.com") objMail.Subject = "PrivateLabelPopup.com - PRICE LIST ORDER - POPUP SYSTEMS" objMail.Body = bodystring mailres = objMail.SendMail() set objMail = nothing %>
