<%@ 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 %> Secure Piers, LLC - Order Engineering Handbook
Company Application Support Multimedia Contact

Order Engineering Handbook

 

If 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.

<%if sMessage="" then%>

 

Please Enter Your E-mail Address Here

<%else Response.Write sMessage end if %>

 

 

Secure Piers, LLC Secure Piers, LLC
Company | Products | application | support | Multi-media | Contact

Copyright © 2006, Secure Piers, LLC.