<%
if Request("Submit")="Submit Request" then
Response.Write Body
Sub SendMail(toWho, Subject)
Dim MailMessage,Body
Set MailMessage = Server.CreateObject("CDONTS.Newmail")
'Format the information for the body of the email message
Body = "The following is a submission from the Publication Request Form. " & vbCRLF & vbCRLF & _
"1999 Recycled Products Manufacturers Directory: " & Request("1999 Recycled Products Manufacturers Directory") & vbCRLF & _
"2000 Guide to Services for the Recycling Industry: " & Request("2000 Guide to Services for the Recycling Industry") & vbCRLF & vbCRLF & _
"2001 Directory of Testing Laboratories: " & Request("2001 Directory of Testing Laboratories") & vbCRLF & vbCRLF & _
"Spring 97 Newsletter: " & Request("Spring 97 Newsletter") & vbCRLF & _
"Spring 98 Newsletter: " & Request("Spring 98 Newsletter") & vbCRLF & _
"Winter/Spring 99 Newsletter: " & Request("Winter/Spring 99 Newsletter") & vbCRLF & vbCRLF & _
"Spring 00 Newsletter: " & Request("Spring 00 Newsletter") & vbCRLF & vbCRLF & _
"Fall 00 Newsletter: " & Request("Fall 00 Newsletter") & vbCRLF & vbCRLF & _
"Summer 01 Newsletter: " & Request("Summer 01 Newsletter") & vbCRLF & vbCRLF & _
"Winter 02 Newsletter: " & Request("Winter 02 Newsletter") & vbCRLF & vbCRLF & _
"Fall 02 Newsletter: " & Request("Fall 02 Newsletter") & vbCRLF & vbCRLF & _
"#1: White, Natural and Mixed HDPE: " & Request("#1: White, Natural and Mixed HDPE") & vbCRLF & _
"#2: Recycled Rubber in Light Fill: " & Request("#2: Recycled Rubber in Light Fill") & vbCRLF & _
"#3: LDPE Shrinkwrap as Injection Molding Feedstock: " & Request("#3: LDPE Shrinkwrap as Injection Molding Feedstock") & vbCRLF & _
"#4: Papermill Recovered Waste: " & Request("#4: Papermill Recovered Waste") & vbCRLF & _
"#5: Electronics Recycling Vendor Survey: " & Request("#5: Electronics Recycling Vendor Survey") & vbCRLF & _
"#6: Potential Markets for CRTs and Plastics from Electronics: " & Request("#6: Potential Markets for CRTs and Plastics from Electronics") & vbCRLF & _
"#7: Scrap Electronics Processing: " & Request("#7: Scrap Electronics Processing") & vbCRLF & _
"#8: Survey of Foundry Participation: " & Request("#8: Survey of Foundry Participation") & vbCRLF & _
"#9: Erving Paper-Dispersion Pilot Pjt: " & Request("#9: Erving Paper-Dispersion Pilot Pjt") & vbCRLF & _
"#10: Polyethylene Based Landscape Timbers: " & Request("#10: Polyethylene Based Landscape Timbers") & vbCRLF & _
"#11: Recycled HDPE Timber Retaining Wall Invest.: " & Request("#11: Recycled HDPE Timber Retaining Wall Invest.") & vbCRLF & _
"#12-Preliminary Investigation of Tire Shreds: " & Request("#12-Preliminary Investigation of Tire Shreds") & vbCRLF & _
"#13-Industrial Resilient Floor Tiles, 2000: " & Request("#13-Industrial Resilient Floor Tiles, 2000") & vbCRLF & _
"#14-Unique Asphalt Cold Patch Plastic: " & Request("#14-Unique Asphalt Cold Patch Plastic") & vbCRLF & _
"#15-Waste Paper Recovery Proj.: " & Request("#15-Waste Paper Recovery Proj.") & vbCRLF & vbCRLF & _
"#16-Continuous Extrusion of Recovered: " & Request("#16-Continuous Extrusion of Recovered") & vbCRLF & vbCRLF & _
"#17-Recycling and Reuse of Mixed-Fiber: " & Request("#17-Recycling and Reuse of Mixed-Fiber") & vbCRLF & vbCRLF & _
"#18-Development-Recycled Rubber: " & Request("#18-Development-Recycled Rubber") & vbCRLF & vbCRLF & _
"#19-Wood-Plastic Composite Prod.: " & Request("#19-Wood-Plastic Composite Prod.") & vbCRLF & vbCRLF & _
"#20-Thermoplastics from Used Elec.: " & Request("#20-Thermoplastics from Used Elec.") & vbCRLF & vbCRLF & _
"#21-Summary-Thermo from Used Elec.: " & Request("#21-Summary-Thermo from Used Elec.") & vbCRLF & vbCRLF & _
"#22-Polypropoylene Toothbrushes: " & Request("#22-Polypropoylene Toothbrushes") & vbCRLF & vbCRLF & _
"#23-Recycled HDPE Scuff Board: " & Request("#23-Recycled HDPE Scuff Board") & vbCRLF & vbCRLF & _
"#24-Class I Fire Rated Floor: " & Request("#24-Class I Fire Rated Floor") & vbCRLF & vbCRLF & _
"#25-Polypropylene for the Preserve Toothbrush: " & Request("#25-Polypropylene for the Preserve Toothbrush") & vbCRLF & vbCRLF & _
"#26-Manufactured Waste Asphalt Shingles: " & Request("#26-Manufactured Waste Asphalt Shingles") & vbCRLF & vbCRLF & _
"#27-Guardrail Offset Blocks: " & Request("#27-Guardrail Offset Blocks") & vbCRLF & vbCRLF & _
"#28-Feedstock Conversion Strategies: " & Request("#28-Feedstock Conversion Strategies") & vbCRLF & vbCRLF & _
"#29-Recycled Plastic Landscaping Timbers: " & Request("#29-Recycled Plastic Landscaping Timbers") & vbCRLF & vbCRLF & _
"#30-HDPE Landscape Timber Retaining Wall: " & Request("#30-HDPE Landscape Timber Retaining Wall") & vbCRLF & vbCRLF & _
"#31-Foundry Sand Waste: " & Request("#31-Foundry Sand Waste") & vbCRLF & vbCRLF & _
"#32-Investigation of Tire Shreds: " & Request("#32-Investigation of Tire Shreds") & vbCRLF & vbCRLF & _
"#33-Potential For Polyester Fiber Waste: " & Request("#33-Potential For Polyester Fiber Waste") & vbCRLF & vbCRLF & _
"#34-Post-Consumer Resin by MA Manufacturers: " & Request("#34-Post-Consumer Resin by MA Manufacturers") & vbCRLF & vbCRLF & _
"#35-Synthetic Lightweight Aggregate: " & Request("#35-Synthetic Lightweight Aggregate") & vbCRLF & vbCRLF & _
"#36-Scrap Rubber/Thermoplastic Blends: " & Request("#36-Scrap Rubber/Thermoplastic Blends") & vbCRLF & vbCRLF & _
"#37-Reuse of Street Sweepings: " & Request("#37-Reuse of Street Sweepings") & vbCRLF & vbCRLF & _
"#38-Converting Polyester Fleece Waste: " & Request("#38-Converting Polyester Fleece Waste") & vbCRLF & vbCRLF & _
"#39-Performance of Paving Units: " & Request("#39-Performance of Paving Units") & vbCRLF & vbCRLF & _
"#40-Powder Processing Techniques/Rubber Tires: " & Request("#40-Powder Processing Techniques/Rubber Tires") & vbCRLF & vbCRLF & _
"#42-Plas-Crete: " & Request("#42-Plas-Crete") & vbCRLF & vbCRLF & _
"#43-Lead-Free Plastic Fishing Tackle: " & Request("#43-Lead-Free Plastic Fishing Tackle") & vbCRLF & vbCRLF & _
"#44-Scrap Textile Feedstock Conversion: " & Request("#44-Scrap Textile Feedstock Conversion") & vbCRLF & vbCRLF & _
"#45-Fly Ash/Plastic Synthetic Aggregate: " & Request("#45-Fly Ash/Plastic Synthetic Aggregate") & vbCRLF & vbCRLF & _
"Springfield Eco-Industrial Baseline Study: " & Request("Springfield Eco-Industrial Baseline Study") & vbCRLF & vbCRLF & _
"Feasibility Study of Hospital Beds: " & Request("Feasibility Study of Hospital Beds") & vbCRLF & vbCRLF & _
"Materials Flow Through the Community: " & Request("Materials Flow Through the Community") & vbCRLF & vbCRLF & _
"Centralized Forest Product Wood Recycling: " & Request("Centralized Forest Product Wood Recycling") & vbCRLF & vbCRLF & _
"Remanufacturing Enterprise for the Inner City: " & Request("Remanufacturing Enterprise for the Inner City") & vbCRLF & vbCRLF & _
"Phase I-Strategic Plan: " & Request("Phase I-Strategic Plan") & vbCRLF & _
"Phase II-Strategic Plan: " & Request("Phase II-Strategic Plan") & vbCRLF & _
"Phase III-Strategic Plan: " & Request("Phase III-Strategic Plan") & vbCRLF & vbCRLF & _
"FY1999 End of Year Report: " & Request("FY1999 End of Year Report") & vbCRLF & vbCRLF & _
"FY2001 End of Year Report: " & Request("FY2001 End of Year Report") & vbCRLF & vbCRLF & _
"Name: " & Request("Name") & vbCRLF & _
"Title: " & Request("Title") & vbCRLF & _
"Company: " & Request("Company") & vbCRLF & _
"Street_Address: " & Request("Street_Address") & vbCRLF & _
"City: " & Request("City") & vbCRLF & _
"State: " & Request("State") & vbCRLF & _
"Zip: " & Request("Zip") & vbCRLF & _
"Email: " & Request("Email") & vbCRLF & _
"Phone: " & Request("Phone") & vbCRLF & _
"Fax: " & Request("Fax")
'MailMessage.From = fromWho
'MailMessage.To = chr(34) & address &chr(34)
MailMessage.To = "publications@chelseacenter.org"
'MailMessage.To = "info@blueplate-it.com"
if Request("EMail")<>"" then
MailMessage.From = Request("EMail")
else
MailMessage.From = "publications@chelseacenter.org"
end if
MailMessage.Subject = "www.ChelseaCenter.org - Publication Request Form Submission:"
MailMessage.Body = Body
MailMessage.Send
Set MyMail = Nothing
End Sub
'*************************************End of database insert code**************************
'call the mail sub
Call SendMail("publications@chelseacenter.org", "www.ChelseaCenter.org - Publication Request Form Submission:")
'Call SendMail("info@blueplate-it.com", "www.ChelseaCenter.org - Publication Request Form Submission:")
'************************End of code to execute when submit button is clicked**************
%>
<%end if%>
Publications - Other Publications
ed
Chelsea Center for Recycling and Economic Development
80 Everett Ave., Suite 221, Chelsea, MA 02150
Tel: (617) 887-2300 Fax: (617) 887-0399
Email: info@chelseacenter.org
