<% Sub ShowCounter(bType) 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 For num = 1 To Len(tmpHits) Response.Write "" Next End Sub %> www.eckerberg.dk

 

 

 

 

 

 

 

 <% ShowCounter(1) %>