Räkna ord i dokument eller fil?

Något sånt här kanske? :)

<%
Dim arrRader(), objFSO, objTS

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
arrRader = Split(objTS.ReadAll)
Response.Write("Det fanns " & UBound(arrRader) + 1 & " ord i dokumentet")

objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
%>

Körningsfel i Microsoft VBScript fel '800a000d'

Inkompatibla typer

/test.asp, rad 6

Aha, ojdå. :)

<%
Dim arrRader, objFSO, objTS

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
arrRader = Split(objTS.ReadAll)
Response.Write("Det fanns " & UBound(arrRader) + 1 & " ord i dokumentet")

objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
%>

Tack