<% Dim bitSubmitted Dim strName Dim strAdd1 Dim strAdd2 Dim strCity Dim strState Dim strZIP Dim strCompany Dim strEmail Dim strBody Dim CDONTSMail Dim strSuccess bitSubmitted = Request("bitSubmitted") If bitSubmitted = "1" Then strName = Request("frmName") strAdd1 = Request("frmAdd1") strAdd2 = Request("frmAdd2") strCity = Request("frmCity") strState = Request("frmState") strZIP = Request("frmZip") strCompany = Request("frmCompany") strEmail = Request("frmEmail") Set CDONTSMail = CreateObject("CDONTS.NewMail") CDONTSMail.From = strEmail CDONTSMail.To = "justin.keener@lsijv.com" CDONTSMail.cc = "rob.frazer@lsijv.com" CDONTSMail.bcc = "jason.evans@osws.com" CDONTSMail.Subject = "SH-130 Mailing List" strBody = "Name: " & strName & VbCrLf & VbCrLf strBody = strBody & "Address 1: " & strAdd1 & VbCrLf & VbCrLf strBody = strBody & "Address 2: " & strAdd2 & VbCrLf & VbCrLf strBody = strBody & "City: " & strCity & VbCrLf & VbCrLf strBody = strBody & "State: " & strState & VbCrLf & VbCrLf strBody = strBody & "ZIP: " & strZIP & VbCrLf & VbCrLf strBody = strBody & "E-Mail: " & strEmail & VbCrLf & VbCrLf strBody = strBody & "Company Organization: " & strCompany & VbCrLf & VbCrLf CDONTSMail.Body = strBody CDONTSMail.Send strSuccess = "Your message has been sent successfully. Please enjoy the rest of your visit to our site." set CDONTSMail = nothing End If %> Lone Star Infrastucture: SH 130 - Mailing List

Mailing List

<%= strSuccess %>

If you would like to subscribe to LSI's mailing list, please fill out the form below.

| | | | |

Š2005 Lone Star Infrastructure.