%@ 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 = "info@chemicalresourcescorp.com" Mailer.FromAddress = "info@chemicalresourcescorp.com" Mailer.AddRecipient "Information", "info@chemicalresourcescorp.com" Mailer.Subject = "Contact Request" Mailer.BodyText = "First Name: " & Request("txtFirstName") & vbCr & "Last Name: " & Request("txtLastName") & vbCr & "Company: " & Request("txtCompany") & vbCr & "Phone: " & Request("txtPhone") & vbCr & "E-Mail: " & Request("txtEmail") & vbCr & "Subject: " & Request("txtSubject") & vbCr & "Message: " & Request("txtMessage") Mailer.SendMail set Mailer = Nothing response.redirect "home.html" End If %>
|
||
|
||||||||||
|