type mismatch när jag försöker splitta en string..?

<%

Dim arrTemp(100)
Dim strLine

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strTextFile = objFSO.OpenTextFile("g:\home\arto.com\www\output\test.txt")

Response.Write("<table border=1 cellpadding=0 cellspacing=0 width=500>")

While Not strTextFile.AtEndOfStream

	'-- Läs en rad från textfilen.
	strLine = strTextFile.Readline

	'-- Splitta upp raden vid varje :
	arrTemp = split(strLine,":")

	'-- Skriv ut värdet i arrayen

	Response.Write("<TR>")

	For I = 0 To uBound(arrTemp)
		Response.Write("<TD>" & arrTemp(I) & "</TD>")
	Next

	Response.Write("</TR>")

Wend

Response.Write("</table>")

strTextFile.Close
Set objFSO = Nothing

%>

Microsoft VBScript runtime error '800a000d'
Type mismatch

/comission_view.asp, line 17

Rad 117: ser ut såhär.
arrTemp = split(strLine,":")

/tlee