<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% my_from=request("mail-fromName") my_fromAddress=Request.Form("Email") my_to=request("mail-toName") my_toAddress=request("mail-toAddress") my_subject=request("mail-subject") my_relay=request("mail-relay") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = my_relay Mailer.FromName = my_from Mailer.FromAddress = my_fromAddress Mailer.AddRecipient "Sherri Fowler", "sherri@premierfiberglass.com" Mailer.AddRecipient "Jim Ellis", "jellis@premierfiberglass.com" Mailer.AddRecipient "J Murray", "jmurray@premierfiberglass.com" Mailer.AddRecipient "Larry", "larry@premierfiberglass.com" Mailer.AddRecipient "Bill Ford", "bford@premierfiberglass.com" Mailer.AddRecipient "Alex Gilmore", "alexgilmore@leisurepoolsusa.com" Mailer.Subject = my_subject sBodyText = "The following is a contact form from the Industrial Flooring website." & vbcrlf & vbcrlf sBodyText = sBodyText & "Contact Name: " & Request.Form("ContactName") & vbCrlf sBodyText = sBodyText & "Email Address: " & Request.Form("Email") & vbCrlf sBodyText = sBodyText & "Business Phone: " & Request.Form("BusPhone") & vbCrlf sBodyText = sBodyText & "Comment: " & Request.Form("Comment") & vbCrlf Mailer.BodyText = sBodyText If Mailer.SendMail then Msg = "Thank you for your comment on our blog.
Come back and see if your comment has been posted" Else MSG = "Mail was not sent successfully. Please try again.
" MSG = MSG & mailer.response & "
" End If response.write MSG %>