My application has Origin and Return trips, each with a Departure and Arrival time. Here's what I cam up with:

Created the following include file:

<%
OD = rsOrigin("departuretime")
ODhr = DatePart("h",OD)
ODmin = DatePart("n",OD)

OA = rsOrigin("arrivaltime")
OAhr = DatePart("h",OA)
OAmin = DatePart("n",OA)

RD = rsReturn("departuretime")
RDhr = DatePart("h",RD)
RDmin = DatePart("n",RD)

RA = rsReturn("arrivaltime")
RAhr = DatePart("h",RA)
RAmin = DatePart("n",RA)

'***AM or PM***
if ODhr < 12 then
ODs = "AM"
Else
ODs = "PM"
End if

if OAhr < 12 then
OAs = "AM"
Else
OAs = "PM"
End if

if RDhr < 12 then
RDs = "AM"
Else
RDs = "PM"
End if

if RAhr < 12 then
RAs = "AM"
Else
RAs = "PM"
End if

'***Origin Departure***
select case ODhr
    Case 0,1,2,3,4,5,6,7,8,9
        ODh = "0"&ODhr

    Case 13,14,15,16,17,18,19,20,21,22,23
        ODh = "0"&ODhr-12

    Case 10,11,12
        ODh = ODhr
End select

if ODmin < 10 then
ODm = "0"&ODmin
Else
ODm = ODmin
End if

'***Origin Arrival***
select case OAhr
    Case 0,1,2,3,4,5,6,7,8,9
        OAh = "0"&OAhr

    Case 13,14,15,16,17,18,19,20,21,22,23
        OAh = "0"&OAhr-12

    Case 10,11,12
        OAh = OAhr
End select

if OAmin < 10 then
OAm = "0"&OAmin
Else
OAm = OAmin
End if

'***Return Departure***
select case RDhr
    Case 0,1,2,3,4,5,6,7,8,9
        RDh = "0"&RDhr

    Case 13,14,15,16,17,18,19,20,21,22,23
        RDh = "0"&RDhr-12

    Case 10,11,12
        RDh = RDhr
End select

if RDmin < 10 then
RDm = "0"&RDmin
Else
RDm = RDmin
End if

'***Return Arrival***
select case RAhr
    Case 0,1,2,3,4,5,6,7,8,9
        RAh = "0"&RAhr

    Case 13,14,15,16,17,18,19,20,21,22,23
        RAh = "0"&RAhr-12

    Case 10,11,12
        RAh = RAhr
End select

if RAmin < 10 then
RAm = "0"&RAmin
Else
RAm = RAmin
End if
%>

Here's the formatting used to display the times in the asp pages:
Origin Departure
<%=ODh%>:<%=ODm%>&nbsp;<%=ODs%>

Origin Arrival
<%=OAh%>:<%=OAm%>&nbsp;<%=OAs%>

Return Departure
<%=RDh%>:<%=RDm%>&nbsp;<%=RDs%>

Return Arrival
<%=RAh%>:<%=RAm%>&nbsp;<%=RAs%>