Syntaxfel/Identifierare förväntas

Hej!

Jag har följande kod som ger följande fel:

-Syntaxfel
-Identifierare förväntas

Vad kan vara fel?

Mvh
Henrik

	'************************************************
	'Specificera vilka kontrollpunkter som skall sparas till nästa protokoll
	'
	'************************************************
	
	dim aChkId(37)
	'***Driftrum***
	aChkId(0)  = "<CH.CP325.V>"
	'***Transformator 1a***
	aChkId(1) = "<CH.CP102.V>"
	aChkId(2)  = "<CH.CP103.V>"
	aChkId(3)  = "<CH.CP97.V>"
	aChkId(4)  = "<CH.CP98.V>"
	aChkId(5)  = "<CH.CP99.V>"
	aChkId(6)  = "<CH.CP101.V>"
	aChkId(7)  = "<CH.CP104.V>"
	'***Transformator 2a***
	aChkId(8)  = "<CH.CP201.V>"
	aChkId(9)  = "<CH.CP202.V>"
	aChkId(10)  = "<CH.CP197.V>"
	aChkId(11)  = "<CH.CP198.V>"
	aChkId(12)  = "<CH.CP199.V>"
	aChkId(13)  = "<CH.CP200.V>"
	aChkId(14)  = "<CH.CP203.V>"
	'***Transformator 3a***
	aChkId(15)  = "<CH.CP210.V>"
	aChkId(16)  = "<CH.CP211.V>"
	aChkId(17)  = "<CH.CP206.V>"
	aChkId(18)  = "<CH.CP207.V>"
	aChkId(19)  = "<CH.CP208.V>"
	aChkId(20)  = "<CH.CP209.V>"
	aChkId(21)  = "<CH.CP212.V>"
	'***Transformator 4a***
	aChkId(22)  = "<CH.CP219.V>"
	aChkId(23)  = "<CH.CP220.V>"
	aChkId(24)  = "<CH.CP215.V>"
	aChkId(25)  = "<CH.CP216.V>"
	aChkId(26)  = "<CH.CP217.V>"
	aChkId(27)  = "<CH.CP218.V>"
	aChkId(28)  = "<CH.CP221.V>"
	'***Likströmssystem 1***
	aChkId(29)  = "<CH.CP126.V>"
	aChkId(30)  = "<CH.CP127.V>"
	'***Likströmssystem 2***
	aChkId(31)  = "<CH.CP275.V>"
	aChkId(32)  = "<CH.CP276.V>"
	'***Likströmssystem 3***
	aChkId(33)  = "<CH.CP286.V>"
	aChkId(34)  = "<CH.CP287.V>"
	'***Likströmssystem 4***
	aChkId(35)  = "<CH.CP297.V>"
	aChkId(36)  = "<CH.CP298.V>"

	
	'************************************************
	'Funktion för att kontrollera om en kontrollpunkt finns med
	'************************************************
	function IdExists(arr, sValue)
		dim i
		IdExists = false
		for i=0 to ubound(arr)
			if arr(i)  = value then
				IdExists = true
			end if
			exit for
		next
	end function
	
	
	'************************************************
	' Nollställ alla kontrollpunkter vars id inte börjar med '@'
	' Ta dessutom bort alla noteringar som innehåller texten '(åtgärdat)'
	'************************************************
	n=chk.Data.NrOfValues
	for i=0 to n-1
		set v=chk.Data.GetValueAtIndex(i)
		if IdExists(aChkId, v.Id) then
			'Behåll värde
		elseif Left(v.Id, 1)="@" then 
			'Behåll värde
		else
			'Nollställ värde
			v.Value=""
		end if
		n1=InStr(v.Note, "(åtgärdat)")
		if n1>0 then v.Note=""
	next
	chk.Data.Finished=False
	chk.Data.User=""
	chk.Data.Date=GetUNValue("SELECT [PlanStartDate] FROM [tblTask] WHERE [Id]=" & lTaskId)
	chk.Data.CreatedDate=Now()
	chk.Data.CompletedSections=""