Den skal oprette i roden på website

Function ReklCount(FilNavn)
    dim fs,visitorcount
    set fs = createobject("scripting.filesystemobject")
   
    If (fs.FileExists(server.mappath(FilNavn))=False) Then
        set file =fs.createtextfile(server.mappath(FilNavn),true)
        visitorcount=0
        file.writeline(visitorcount)
        file.close
    end if

    set file = fs.opentextfile(server.mappath(FilNavn))

    visitorcount = cint(file.readline)

    session("visitorcount") = visitorcount
    visitorcount = visitorcount + 1
    file.close
    set file =fs.createtextfile(server.mappath(FilNavn),true)
    file.writeline(visitorcount)
   
    file.close
   
    ReklCount=Visitorcount
    set fs = nothing
    set file = nothing
end function

den her ligger i en anden folder -  men skal altid placer filen i roden.