Problem med tilfældig linie fra txt fil

Hej

Jeg prøver:
Dim line
Randomize
line = Int(20 * Rnd)

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/docs/fornavne.txt")
Set f = fso.OpenTextFile(filespec,1)

For intLine = 1 to line
  f.SkipLine
Next

fornavn = f.ReadLine

Men får fejlen:
Microsoft VBScript runtime error '800a003e'

Input past end of file

Nogen der kan hjælpe eller kan en anden måde at få en tilfældig linie fra en txt fil ?