hmm hvad går der lige galt for den her counter?

den variabel som jeg kalder i min counter er tom og jeg fatter det simpelt hen ikke
siden kan ses her http://super.skodliv.dk/hs/
og koden kommer her:

<%
skod = Request.Cookies("count")("cook")
If skod = "" Then
Response.Cookies("count")("cook") = 2
Response.Cookies("count").expires = Now() + 1
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
    strDir = Request.ServerVariables("SCRIPT_NAME")
    strCountFile = Server.MapPath(Left(strDir, InStrRev(strDir,"/"))) & "\counter.txt"
    On Error Resume Next
    Set objFile = objFS.OpenTextFile(strCountFile, 1, False)
    tmpHits = Trim(objFile.ReadLine)
    tmpHits = tmpHits + 1
    objFile.Close
    Set objFile = objFS.CreateTextFile(strCountFile, True)
    objFile.WriteLine(tmpHits)
    Set objFS = Nothing
    ' Her vises counteren 1 = Grafisk counter, 2 = Tekst counter
'count = ""
  For num = 1 To Len(tmpHits)
  count = Mid(tmpHits,num,1)
  next
%>
<center>
<img src="counter/left.gif" border="0"><img src='counter/<%=count %>.gif'><img src="counter/right.gif" border="0">
</center>
<%
Else
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
    strDir = Request.ServerVariables("SCRIPT_NAME")
    strCountFile = Server.MapPath(Left(strDir, InStrRev(strDir,"/"))) & "\counter.txt"
    On Error Resume Next
    Set objFile = objFS.OpenTextFile(strCountFile, 1, False)
    tmpHits = Trim(objFile.ReadLine)
objFile.Close
    Set objFile = objFS.CreateTextFile(strCountFile, True)
    objFile.WriteLine(tmpHits)
    Set objFS = Nothing
 
    ' Her vises counteren 1 = Grafisk counter, 2 = Tekst counter
'count = ""
  For num = 1 To Len(tmpHits)
  count =  Mid(tmpHits,num,1)
  next
%>
<center>
<img src="counter/left.gif" border="0"><img src='counter/<%=count %>.gif'><img src="counter/right.gif" border="0">
</center>
<%
End If
%>