%@ Language="VBScript" %> <% ' Jay 11/23/01 2:16p If Request("btnSubmit") = "Submit" Then ' ASPMail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "127.0.0.1" Mailer.FromName = "Chemical Resources" Mailer.FromAddress = "info@chemicalresourcescorp.com" Mailer.AddRecipient "Information", "info@chemicalresourcescorp.com" Mailer.Subject = "Contact Request" Mailer.BodyText = "Name: " & Request("name") & vbCr & "Title: " & Request("title") & vbCr & "Company Name: " & Request("company") & vbCr & "Address: " & Request("address") & vbCr & "State: " & Request("state") & vbCr & "Zip: " & Request("zip") & vbCr & "Business Phone: " & Request("busphone") & vbCr & "Odor Control Checked?: " & Request("odor") & vbCr & "Anti-Corrosion Checked?: " & Request("corrosion") & vbCr & "Floor Coatings Checked?: " & Request("floor") & vbCr & "Solvent Degreaser Checked?: " & Request("solvent") & vbCr & "Was Yes, I have a need for... Checked?: " & Request("info") Mailer.SendMail set Mailer = Nothing response.redirect "home.html" End If %>
Click here for printable version.
|
KNOCK-OUT Stubborn Plant Problems &
|
||||
Offer valid to one individual per purchase. Offer not applicable to Local, State & Federal organizations and elsewhere prohibited by law.