Frågan#1
Hej! Håller på med ett litet script som räknar ut hur länge man har jobbat. Jag får dockföljande felmeddelande:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'
/utveckling/TimeCounter/new_time_counter.asp, line 48
#48 Skillnad = DateDiff("n", Tid(0), Tid(1))
Session.LCID = 1053
Response.Write "<table cellspacing=""2"" cellpadding=""2"" border=""0"">"
Response.Write "<tr><td colspan=""4""><b>Tidrapportering " & Request("manad") & "</b></td></tr>"
Response.Write "<tr><td colspan=""4""> </td></tr>"
Response.Write "<tr><td width=""130""><b>Kom</b></td><td width=""130""><b>Gick</b></td><td><b>Tid</b></td><td><b>Räknad tid</b></td></tr>"
'-------------------------------
'Read file tider.txt
'-------------------------------
Dim readFSO, Path, T, Tid, Skillnad, Notering
Set readFSO = Server.CreateObject("Scripting.FileSystemObject")
'Get path to file
Path = Server.MapPath("tider.txt")
'Open the textfile
Set T = readFSO.OpenTextFile(Path)
'Locate the month in the file
Do Until UCase(Read) = UCase(Request("manad")) OR T.AtEndOfStream
Read = T.ReadLine
Loop
If UCase(Read) = UCase(Request("manad")) Then
T.SkipLine
T.Skipline
T.SkipLine
Do Until Instr(Read, "--------")
Read = T.ReadLine
If Read <> "" Then
Tid = Split(Read, vbTab)
'Get difference in minutes between times
Skillnad = DateDiff("n", Tid(0), Tid(1))
'Remove 8 hours from difference
Skillnad = Skillnad - 480
Response.Write "<tr><td>" & Tid(0) & "</td><td>" & Tid(1) & " </td><td>" & Skillnad & " min. </td><td>" & Notering & "</td></tr>"
End If
Loop
Else
Response.Write "Kunde inte hitta månaden!"
End If
'-------------------------------
Är det någon som vet vad det betyder? :)
//JANspeed
