<% fil = Server.MapPath("raknare.txt") Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject") Set MinFil = MittTxtObj.OpenTextFile(fil) antal = MinFil.ReadLine MinFil.Close antal = antal + 1 Set MinFil = MittTxTObj.CreateTextFile(fil,true) MinFil.WriteLine antal MinFil.Close %>