Fejl: Input efter filens slutning

Hvorfor får jeg følgende fejl:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A003E)
Input efter filens slutning
/SoF2ServerInfo.asp, line 57
Når jeg prøver følgende:

<% <-----linie 43
  Dim fso, f, filespec
  Set fso = CreateObject("Scripting.FileSystemObject")
  filespec = Server.Mappath("\ServerInfo.txt")
  Set f = fso.OpenTextFile(filespec,1)
  For intLine = 1 to 1
  f.SkipLine
  Next
  Do While not f.AtEndOfStream
  Response.Write "<tr> <td background='c:\Inetpub\wwwroot\bg1.jpg' Width='300'> <font face='Verdana' size='1' color='#808080'>"
  Streng = f.ReadLine
  If InStr(streng, "team#1") Then
  Response.write "<font color='#FF0000'>" & f.ReadLine & "</font> <br> <br>"
  ElseIf InStr(streng, "team#2") Then
  Response.write "<font color='#00FFFF'>" & f.ReadLine & "</font> <br> <br>"
  ElseIf InStr(streng, "team#3") Then
  Response.write "<font color='#FFFFFF'>" & f.ReadLine & "</font> <br> <br>"
  Else
  Response.Write "WATING FOR PLAYERS"
  End If
  Response.Write "</font> </td> </tr>"
  Loop
  f.Close
%> <-------linie 66