---
title: "Subscript out of range: '[number: 1]'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9897-subscript-out-of-range-number-1"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Janspeed"
published: "2001-06-05T10:34:00.000Z"
updated: "2001-06-06T10:49:00.000Z"
replies: 2
views: 918
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9897-subscript-out-of-range-number-1"
---

# Subscript out of range: '[number: 1]'

## #1 — Janspeed, 2001-06-05T10:34Z

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"">&nbsp;</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

Permalänk: https://www.webforum.nu/p/9897

## #2 — Vide, 2001-06-05T11:14Z

Det betyder att det inte finns något värde i Tid vid element 1. Kolla så att du verkligen har det separerat i textfilen som det skall...

Permalänk: https://www.webforum.nu/p/271073

## #3 — Janspeed, 2001-06-06T10:49Z

Det kom med en rad på slutet som inte borde vara med. Hygglo. Tack för hjälpen. :)

/JANspeed

Permalänk: https://www.webforum.nu/p/271074

---

Tråden på webben: https://www.webforum.nu/amne/asp/9897-subscript-out-of-range-number-1