---

I funksjonen som er nedenfor så får jeg
feilen:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'

Feilen kommer på linje 9,
er det noen som ser feilen ?

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

...Helge

---

"Helge Aksdal" <helge@spam.aksdal.net> wrote in message
news:IVg58.3434$tn2.80247@news4.ulv.nextra.no...
> I funksjonen som er nedenfor så får jeg
> feilen:
> Microsoft VBScript runtime error '800a0009'
> Subscript out of range: '[number: 1]'

Det array du prøver at tilgå har måske kun en værdi?

--
Jakob Andersen
Er du god til ASP og mangler du et job?
Så kontakt mig på jta@advice.dk