Indekset er uden for området?????

Jeg får denne fejl, men jeg forstår den ikke rigtigt!

Der opstod en Microsoft VBScript-kørselsfejl error '800a0009'

Indekset er uden for området: '[number: 1]'

/test/kalender/common/date_time_inc.asp, line 20

date_time_inc.asp ser således ud:
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