<% Option Explicit %> <% Dim MailerBody Dim objMail Dim bitSubmitted Dim strFirstName Dim strLastName Dim strCoName Dim strAdd1 Dim strAdd2 Dim strCity Dim strState Dim strZip Dim strCountry Dim strPhone Dim strEmail Dim strInfo Dim strQuality Dim bitIsError Dim bitMailSent Dim strErrorMessage Dim strBody bitIsError = False bitSubmitted = Request("bitSubmitted") 'Function to determine required fields - jason Function errorCheck(strCheckVal) If bitSubmitted = "1" Then If strCheckVal = "" Then errorCheck = "error" bitIsError = True End If End If End Function 'Function to heep radio button selected through error checking. Function showSelected(strPartType,strCheckValue) If strPartType = strCheckValue Then showSelected = " checked" End If End Function If bitSubmitted = "1" Then If bitIsError Then strErrorMessage = "Please complete the items highlighted below." End If bitSubmitted = Request("bitSubmitted") strFirstName = Request("strFirstName") strLastName = Request("strLastName") strCoName = Request("strCoName") strAdd1 = Request("strAdd1") strAdd2 = Request("strAdd2") strCity = Request("strCity") strState = Request("strState") strZip = Request("strZip") strCountry = Request("strCountry") strPhone = Request("strPhone") strEmail = Request("strEmail") strInfo = Request("strInfo") strQuality = Request("strQuality") 'Check for email field errorCheck(strEmail) If Not bitIsError Then ' Build out Cdonts Mailer Set objMail = CreateObject("CDONTS.NewMail") objMail.From = strEmail objMail.To = "info@sh130.com" objMail.Subject = "Contact Lone Star Infrastructure" strBody = "First Name: " & strFirstName & vbCrLf strBody = strBody & "Last Name: " & strLastName & vbCrLf strBody = strBody & "Business Name: " & strCoName & vbCrLf strBody = strBody & "Address 1: " & strAdd1 & vbCrLf strBody = strBody & "Address 2: " & strAdd2 & vbCrLf strBody = strBody & "City: " & strCity & vbCrLf strBody = strBody & "State: " & strState & vbCrLf strBody = strBody & "Zip: " & strZip & vbCrLf strBody = strBody & "Country: " & strCountry & vbCrLf strBody = strBody & "Phone: " & strPhone & vbCrLf strBody = strBody & "Email: " & strEmail & vbCrLf strBody = strBody & "How can LSI provide information to you? " & strInfo & vbCrLf strBody = strBody & "How can LSI improve the quality of your travel during the construction of LSI? " & strQuality & vbCrLf objMail.Body = strBody objMail.Send Set objMail = Nothing bitMailSent = True End If End If %> Lone Star Infrastucture: SH 130 - Contact Us

Contact Us

Lone Star Infrastructure
108 McNutt Building 2
Hutto, Texas 78634

Phone: 512-681-6000
Fax: 512-681-6001
Email: info@sh130.com

Lone Star Infrastructure welcomes your input on the development of State Highway 130, and we hope to ease the inconvenience upon you during the construction. In order for LSI to best meet your needs, we need to hear from you! Your questions, concerns, issues and feedback will help us adjust to better meet your needs. Let us know how we are doing and what we can do to make SH 130 a Central Texas success!

Contact Us Online Form

***Note: We are experiencing issues with our contact form. In the meantime, if you have questions about SH 130 between IH-35 and US 183, please e-mail dan.susong@lsijv.com.

For questions about roads other than SH 130, please visit http://www.texastollways.com/.

<% If Not bitMailSent Then %> * denotes required fields <% Else %>

Your message has been successfully sent. Please enjoy the rest of your visit to our site.

<% End If %>

| | | | |

�2005 Lone Star Infrastructure.