<%
'////////////////////////////////////////////////////////////////////////////////////////
'/// Public Function TimeWithoutSeconds( as_time ) returns int
'/// 
'/// purpose:  This function returns the non military hour ( 1 thru 12 )
'///           The vbscript hour funciton returns the hour ( 1 thru 24 ) 
'///
'/// History:
'///	01.12.2002	HEPFERM	  Created
'///
'///////////////////////////////////////////////////////////////////////////////////////
Function TimeWithoutSeconds( as_time )
	' Declare Variables
	Dim la_time
	Dim la_time_mh
	' split up the time into an arrray
	If as_time <> "" Then
		la_time = split( as_time, ":" )
		la_time_mh = split( la_time(2), " " )
		TimeWithoutSeconds = la_time(0) & ":" & la_time(1) & " " & la_time_mh(1)
	Else
		TimeWithoutSeconds = -1
	End If
End Function

%>