Regular Time

I have been looking for an easy way to to use the VBScript FormatDateTime function to get me a time like: 3:47 PM.
For whatever reason.. you can't do that! So try this:
<%

Response.Write sTime(Now())
Private Function sTime(dtime)
hr = hour(dtime)
mn = minute(dtime)
  if hr > 12 then
  hr = hr - 12
  ampm = "PM"
  else
  ampm = "AM"
  end if
IF len(mn) = 1 then mn = 0 & mn

sTime = hr & ":" & mn & " " & ampm
End Function

%>

The Result: -5:38 PM

NOTE: This is SERVER time, not client time!

Thanks for the suggestion Ellen!
7:38 AM

asp time timepart time part