%@ Language=VBScript %> <% dim sMessage, Mail, oConn, ID if Request.Form("Action") = "Send" then dim submit_by, description description = Request.Form("description") submit_by = Request.Form("submit_by") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.nethosters.com" ' Specify a valid SMTP server Mail.From = "info@securepiers.com" ' Specify sender's address Mail.FromName = "Engineering Handbook Request" ' Specify sender's name Mail.AddAddress "afodge@securepiers.com", "Aaron Fodge" Mail.AddAddress "rdavis@securepiers.com", "Rich Davis" Mail.AddAddress "paul@paulscompany.com" ' Name is optional Mail.AddReplyTo "info@securepiers.com" 'Mail.AddAttachment "c:\images\cakes.gif" Mail.Subject = "Website Question" Mail.Body = Mail.Body & "Question: " & description & Chr(13) & Chr(10) Mail.Body = Mail.Body & "Submitted By: " & submit_by & Chr(13) & Chr(10) 'On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description else sMessage = "
Your request was successfully submitted.
" End If end if %>|
|
![]() |
|||||||
Order Engineering HandbookIf you would like to order our engineering handbook, please complete the form below with the name of your company, contact name, phone number, and for rationale this request.
|
|
|||||||
|
||||||||
|
||||||||
Secure Piers, LLC Secure Piers, LLCCompany | Products | application | support | Multi-media | Contact |
||||||||