<%@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
About AirLIFE Calling AirLIFE AirLIFE Ride Along ProgramAirLIFE EducationAirLIFE JobsAirLIFE KidsAirLIFE PhotosAirLIFE NewsShow SupportContact AirLIFE
Contact AirLIFE
Share Your Story
AirLIFE Customer Survey
 
 
 
Contact AirLIFEPage
   
Staff Login
IRIS Login
 
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%>

Air Methods Commission on Accreditation of Medical Transport Systems

   
Notice of Privacy Practices
FacebookTwitterFlickr University Health System.comBaptist Health System