Fayette Area Coordinated Transportation Home Fayette Area Coordinated Transportation Home
About Us
Program Policies
Shared Ride
Public Transit
nav image About Public Transit
nav image Bus Schedules
nav image FACT Fares You are here
nav image Pittsburgh Fares
nav image ADA Transportation
nav image Title VI Information
nav image How to Read a Bus Schedule
nav image Connect Card Facts
Area Links
Contact Us
  • Comments
  • Complaints
Visit the PA Commutes Web Site - Alternative Transportation in Pennsylvania

Map of Fayette County, Pennsylvania
Public Transit     FACT Fares
FACT Fares  (effective 7/1/2014)
<% Dim objDC, objRS ' Create and establish data connection Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30 'Use this line to use Access objDC.Open "DBQ=" & Server.MapPath("\database\fares1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=512;Threads=4;", "username", "password" 'Our SQL Server code - use above line to use tngl on your server 'objDC.Open Application("SQLConnString"), Application("SQLUsername"), Application("SQLPassword") ' Create recordset and retrieve values using the open connection Set objRS = Server.CreateObject("ADODB.Recordset") ' Opening record set with a forward-only cursor (the 0) and in read-only mode (the 1) ' If a request for a specific id comes in, then do it o/w just show pulldown If Len(Request.QueryString("origin")) <> 0 Then ' request record for requested id objRS.Open "SELECT * FROM table1 WHERE origin= '" & Request.QueryString("origin") & "' ORDER BY origin ASC;", objDC, 0, 1 ' Show selected record If Not objRS.EOF Then %>Your Location:  <%= objRS.Fields("origin") %> <% Do While Not objRS.EOF %>

$<%= objRS.Fields("brownsville") %>
$<%= objRS.Fields("connellsville") %>
$<%= objRS.Fields("fairchance") %>
$<%= objRS.Fields("farmington") %>
$<%= objRS.Fields("hopwood") %>
$<%= objRS.Fields("masontown") %>
Mt Pleasant
$<%= objRS.Fields("mt_pleasant") %>
New Salem
$<%= objRS.Fields("new_salem") %>
Penn State
$<%= objRS.Fields("penn_state") %>
$<%= objRS.Fields("republic") %>
$<%= objRS.Fields("searights") %>
$<%= objRS.Fields("smithfield") %>
Trans Ctr
$<%= objRS.Fields("transfer_center") %>
$<%= objRS.Fields("uniontown") %>
<% objRS.MoveNext Loop %> <% End If objRS.Close End If objRS.Open "SELECT DISTINCTROW origin FROM table1 GROUP BY origin ORDER BY origin ASC;", objDC, 0, 1 ' Loop through recordset and display results If Not objRS.EOF Then objRS.MoveFirst ' the form below calls this file only this time with a occupation in the QueryString %> <% End If ' Close Data Access Objects and free DB variables objRS.Close Set objRS = Nothing objDC.Close Set objDC = Nothing %>

See Pittsburgh Fares

Half-Fare Schedule - Local and Pittsburgh  PDF File Format

Full-Fare Schedule - Local and Pittsburgh  PDF File Format