<% openStr ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/mtacharm.mdb") & ";" Set cn = Server.CreateObject("ADODB.Connection") cn.Open OpenStr sql = "SELECT * FROM events WHERE eventdate>#" & Now()-1 & "# ORDER BY eventdate;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 3, 3 %> CharmCard | Maryland Transit Administration
CharmCard: The reusable fare payment card that's fast, easy and secure.
Get Charmed! Available at select Giant and CVS stores.
How to get a CharmCard(R)

Transit Events

For Senior Citizens 65 years of age and older, come meet the CharmCard team to purchase your REDUCED FARE card.

You will need to:

  • Bring a valid government photo ID, including proof of age.
  • Fill out a short form, to register your card for balance protection.
  • Provide $2 cash to purchase a card. The card is pre-loaded with $2 stored value.

 

<% nummonth=0 numyear=0 Do While Not rs.EOF nummonth2=Month(rs("eventdate")) numyear2=Year(rs("eventdate")) If nummonth2<>nummonth OR numyear2<>numyear Then nummonth=nummonth2 numyear=numyear2 Response.Write "

" & MonthName(nummonth) & " " & numyear & "

" End If Response.Write "

" & Day(rs("eventdate")) & " " & WeekdayName(Weekday(rs("eventdate"))) & "" If Len(rs("raindate"))>0 Then Response.Write " (rain date " & Day(rs("raindate")) & " " & WeekdayName(Weekday(rs("raindate"))) & ")" End If Response.Write "
" If Len(rs("location"))>0 Then Response.Write "" & rs("location") & "
" End If Response.Write rs("address") & "
" If Len(rs("address2"))>0 Then Response.Write rs("address2") & "
" End If Response.Write "" & rs("times") & "

" rs.MoveNext Loop %>
<% rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>