Læsning fra txt-fil

Arrrgh, jeg er ved at blive vanvittig :-/

Jeg er ved at lave en klik-statistik, via txt-filer. Jeg har 4 txt-filer, med et link i linje 1 og et nul/0 (antal klik) i linje 2. Jeg bruger følgende kode til at vise statistikken:

<%
  Response.Write("<table border=""0"" width=""650"" style=""font-family: Verdana, Arial; font-size: 8pt; color: rgb(0,0,0)""><tr>")
  Response.Write("<td width=""50"">ID</td><td width=""500"">Link</td><td width=""100"">Viderestillinger</td></tr>")
  Response.Write("<tr><td width=""50"" height=""10""></td><td width=""500"" height=""10""></td><td width=""100"" height=""10""></td></tr>")

' Henter liste over filer i mappe
  Dim id,fs,fo,x,f
  id = 1
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  Set fo=fs.GetFolder(Server.MapPath("\statistik\redirect\"))

  For Each x In fo.files
    ' Henter indholdet af filer i mappen
      Response.Write("<tr><td width=""50"">" & id & "</td>")

      Set f=fs.OpenTextFile(Server.MapPath("\statistik\redirect\" & id & ".txt"), 1)
      Response.Write("<td width=""500"">" & f.ReadLine & "</td>")
      f.Close

      Set f=fs.OpenTextFile(Server.MapPath("\statistik\redirect\" & id & ".txt"), 2)
      Response.Write("<td width=""100"">" & f.ReadLine & "</td></tr>")
      f.Close

      id = id + 1
  Next


  Response.Write("</table>")

  Set fo=Nothing
  Set fs=Nothing
%>

... Men jeg får fejl uanset hvad jeg gør. Hvad gør jeg galt?

Apo