Contact AirLIFE - San Antonio, Texas

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if (Request.ServerVariables("Request_Method") = "POST") then WAFV_Redirect = "" Session("WAVT_contactus_Errors") = "" if (WAFV_Redirect = "") then WAFV_Redirect = cStr(Request.ServerVariables("SCRIPT_NAME")) end if WAFV_Errors = "" WAFV_Errors = WAFV_Errors & WAValidateAN(cStr(Request.Form("firstName")) & "",true,true,true,true,"",true,1) WAFV_Errors = WAFV_Errors & WAValidateAN(cStr(Request.Form("lastName")) & "",true,true,true,true,"",true,2) WAFV_Errors = WAFV_Errors & WAValidateAN(cStr(Request.Form("title")) & "",true,true,true,true,"",true,3) WAFV_Errors = WAFV_Errors & WAValidateAN(cStr(Request.Form("agency")) & "",true,true,true,true,"",true,4) WAFV_Errors = WAFV_Errors & WAValidateEM(cStr(Request.Form("email")) & "",true,5) WAFV_Errors = WAFV_Errors & WAValidateLE(cStr(Request.Form("email2")) & "",cStr(Request.Form("email")) & "",true,6) WAFV_Errors = WAFV_Errors & WAValidateAN(cStr(Request.Form("subject")) & "",true,true,true,true,"!@#$%&*()-_+=<>,.?/~",true,7) WAFV_Errors = WAFV_Errors & WAValidateRQ(cStr(Request.Form("enquiry")) & "",false,8) if (WAFV_Errors<> "") then PostResult WAFV_Redirect,WAFV_Errors,"contactus" end if end if %> <% if (Request.ServerVariables("Request_Method") = "POST") then Dim strBody 'Holds the body of the e-mail Dim objCDOMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address Dim strReturnEmailAddress 'Holds the return e-mail address of the user strReturnEmailAddress = Request.Form("email") strBody = "

E-mail sent from form on Web Site

" strBody = strBody & "
Name: " & Request.Form("firstName") & " " & Request.Form("lastName") strBody = strBody & "
Title: " & Request.Form("title") strBody = strBody & "
Agency: " & Request.Form("agency") strBody = strBody & "
Phone: " & Request.Form("phone") strBody = strBody & "
E-mail: " & strReturnEmailAddress strBody = strBody & "
Subject: " & Request.Form("subject") strBody = strBody & "

Enquiry: -
" & Replace(Request.Form("enquiry"), vbCrLf, "
") If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then strReturnEmailAddress = strMyEmailAddress End If sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "mail.txairlife.com" ' .Item(sch & "smtpserver") = "mail.coolarrowconcepts.com" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">" .To = "contact@txairlife.com" ' .To = "info@coolarrowconcepts.com" .Subject = Request.Form("subject") .HTMLBody = strBody .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Redirect("contact_success.asp") end if %> Contact AirLIFE - San Antonio, Texas

Home - AirLIFE

Contact AirLIFEPage

CONTACT AIRLIFE
We've moved!

New Mailing Address:

7500 Highway 90 West
AT&T Bldg, Suite 220
San Antonio, TX 78227
Get Directions

Phone: 210-233-5800 (non-emergency)

Email: admin@txairlife.com

Contact Form *indicates required fields
First Name: " size="24" maxlength="60" /> <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "1" & ",")) > 0 OR "1" = "")) then if (NOT(false)) then %> *Please enter your first name.* <% 'WAFV_Conditional contactus.asp contactus(1:) end if end if end if%>	Last Name: " size="24" maxlength="60" /> <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "2" & ",")) > 0 OR "2" = "")) then if (NOT(false)) then %> *Please enter your last name.* <% 'WAFV_Conditional contactus.asp contactus(2:) end if end if end if%>
Title: " size="24" maxlength="255" /> <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "3" & ",")) > 0 OR "3" = "")) then if (NOT(false)) then %> *Please enter your title.* <% 'WAFV_Conditional contactus.asp contactus(3:) end if end if end if%>
Agency/School/Organization: " size="24" maxlength="255" /> *Please enter your agency name.*
E-mail Address: " size="24" maxlength="255" /> <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "5" & ",")) > 0 OR "5" = "")) then if (NOT(false)) then %> *Please enter your E-mail.* <% 'WAFV_Conditional contactus.asp contactus(5:) end if end if end if%>
Confirm E-mail Address: " size="24" maxlength="255" /> <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "6" & ",")) > 0 OR "6" = "")) then if (NOT(false)) then %> *Please enter your E-mail again.* <% 'WAFV_Conditional contactus.asp contactus(6:) end if end if end if%>
Phone: 999-999-9999 " size="24" maxlength="255" /> *Please enter your phone number.*
Subject: ie: General, Media Request, LZ Class, Educational Class, Static Display etc. " size="60" maxlength="255" /> <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "7" & ",")) > 0 OR "7" = "")) then if (NOT(false)) then %> *Please enter your subject.* <% 'WAFV_Conditional contactus.asp contactus(7:) end if end if end if%>
Message: <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "8" & ",")) > 0 OR "8" = "")) then if (NOT(false)) then %> <% if (cStr(ValidatedField("contactus","contactus")) <> "") then if ((inStr(("," & cStr(ValidatedField("contactus","contactus")) & ","),("," & "8" & ",")) > 0 OR "8" = "")) then if (NOT(false)) then %> *Please enter an E-mail message.* <% 'WAFV_Conditional contactus.asp contactus(8:) end if end if end if%> <% 'WAFV_Conditional contactus.asp contactus(8:) end if end if end if%>