Contact Us

<% if Request.Form("Submit") <> "Submit" Then %>

USAirports
1295 Scottsville Road
Rochester, NY 14624
Phone: (585) 527-6835
Toll Free: (800) 433-6870

We look forward to meeting your aviation needs.
Please use the form below to let us know how we may assist you.


*Required Fields
 
Your First Name*  
Your Last Name*  
Business  
Title  
Address  
City  
State  
Zip  
Phone*  
email address*  
 
How did you hear of us  
 
Comments/Questions  
 
  

<% Else strFirstName=Request.form("FirstName") strLastName=Request.form("LastName") strBusiness=Request.form("Business") strTitle=Request.form("Title") strAddress=Request.form("address") strCity=Request.form("city") strState=Request.form("state") strZip=Request.form("zip") stremail=Request.form("email") strphone=Request.form("phone") 'strInterest=Request.form("interest") strHeard=Request.form("heard_of") strcomments=Request.form("comments") strDate=Date strBody= "Name: " & strFirstName & " " & strLastName & "
" strBody=strBody & "Business: " & strBusiness & "
" strBody=strBody & "Title: " & strTitle & "
" strBody=strBody & strAddress & "
" strBody=strBody & strCity & ", " & strState & " " & strZip & "
" strBody=strBody & "email: " & stremail & "
" strBody=strBody & "Phone: " & strphone & "
" 'strBody=strBody & "Interested In: " & strInterest & "
" strBody=strBody & "Heard From: " & strHeard & "
" strBody=strBody & "--------------- " & "
" strBody=strBody & "Comments: " & strcomments & "
" strBody=strBody & "--------------- " & "
" strBody=strBody & "Date: " & strDate & "
" strBody=strBody & "--------------- " & "
" Set objEMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Confi("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Confi.Update Set objEMail.Configuration = objConfig 'objEMail.To = "rwood@usairports.com" objEMail.To = "jim@nbnsolutions.com" objEMail.From = "postmaster@usairportsflight.com" objEMail.Subject = "USAirports Website Contact Us Form Submittal" 'objEMail.TextBody = strBody objEMail.HTMLBody = strBody objEMail.Send Set objEMail = Nothing Response.Write "

" Response.Write strFirstName & " " & strLastName Response.Write ", Thanks for contacting USAirports - we'll get back to you shortly!" Response.Write "" Response.Write "






















" End If %>