Problemer med FSO

Counteren nulstilles ved at klikke på (N).

Umiddelbart tror jeg det kan have noget at gøre med sessionstider. Prøv at nulstille og gå ind igen med et andet browservindue.

Det hjælper heller ikke :-(

Der sker slet ikke noget når der nulstilles.
Hvordan ser koden ud ?

Her kommer den. Det er en række funktioner som kaldes på startsiden og i admin-delen:

<%

    \' ------------------------------------------------------------------------------------
    \' OPDATERER BRUGER COUNTEREN
    \'  - hvis filen ikke eksisterer, oprettes denne.
    \' ------------------------------------------------------------------------------------   
    Public Function updateUserCounter(path)
        If Session(\"Count\") <> true Then
            Set fso = CreateObject(\"Scripting.FileSystemObject\")
            If fso.FileExists(path) Then
                Set f = fso.GetFile(path)
                If f.size <> \"0\" Then
                    Set f = fso.OpenTextFile(path,1,False)
                    c = f.ReadAll
                    f.Close   
                Else
                    c = 0
                End If
            Else
                Set f = fso.CreateTextFile(path, True)
                f.Close   
                c = 0
            End If
            Set f = fso.OpenTextFile(path,2,False)
            c = c + 1
            f.Write c
            f.Close   
            Session(\"Count\") = true
        End If
    End Function


    \' ------------------------------------------------------------------------------------
    \' OPDATERER ORDER COUNTEREN
    \'  - hvis filen ikke eksisterer, oprettes denne.
    \' ------------------------------------------------------------------------------------   
    Public Function updateOrderCounter(path)
        Set fso = CreateObject(\"Scripting.FileSystemObject\")
        If fso.FileExists(path) Then
            Set f = fso.GetFile(path)
            If f.size <> \"0\" Then
                Set f = fso.OpenTextFile(path,1,False)
                c = f.ReadAll
                f.Close   
            Else
                c = 0
            End If
        Else
            Set f = fso.CreateTextFile(path, True)
            f.Close   
            c = 0
        End If
        Set f = fso.OpenTextFile(path,2,False)
        c = c + 1
        f.Write c
        f.Close   
    End Function


    \' ------------------------------------------------------------------------------------
    \' UDSKRIVER INDHOLDET AF COUNTEREN
    \'  - hvis filen ikke eksisterer, oprettes denne.
    \'  - hvis filen er tom, skrives der er nul i denne.
    \' ------------------------------------------------------------------------------------   
    Public Function showCounter(path)
        Set fso = CreateObject(\"Scripting.FileSystemObject\")
        If fso.FileExists(path) Then
            Set f = fso.GetFile(path)
            If f.size <> \"0\" Then
                Set f = fso.OpenTextFile(path,1,False)
                c = f.ReadAll
                f.Close   
            Else
                Set f = fso.OpenTextFile(path,2,False)
                c = 0
                f.Write c
                f.Close   
            End If
        Else
            Set f = fso.CreateTextFile(path,True)
            f.Close   
            Set f = fso.OpenTextFile(path,2,False)
            c = 0
            f.Write c
            f.Close   
        End If
        showCounter = c       
    End Function

    \' ------------------------------------------------------------------------------------
    \' UDSKRIVER OPRETTELSES DATOEN FOR TXT-FILEN TIL COUNTEREN
    \'  - hvis filen ikke eksisterer, oprettes denne.
    \' ------------------------------------------------------------------------------------   
    Public Function dateCreatedCounter(path)
        Set fso = CreateObject(\"Scripting.FileSystemObject\")
        If fso.FileExists(path) Then
            Set f = fso.GetFile(path)
            d = f.DateCreated
        Else
            Set f = fso.CreateTextFile(path,True)
            f.Close   
            Set f = fso.GetFile(path)
            d = f.DateCreated
        End If
        dateCreatedCounter = d
\'         dateCreatedCounter = Replace(Left(d,5),\"-\",\"/\")&\"-\"&right(Left(d,10),2)
    End Function


    \' ------------------------------------------------------------------------------------
    \' SLETTER TXT-FILEN FRA COUNTEREN
    \'  - sletter filen og vidersender brugeren
    \' ------------------------------------------------------------------------------------   
    Public Function deleteCounter(path)
        Set fso = CreateObject(\"Scripting.FileSystemObject\")
        fso.DeleteFile(path)
\'        Set f = fso.CreateTextFile(path,True)
\'        f.Close   
        Response.Redirect \"statsframe.asp\"
    End Function

%>

Hvis jeg sletter txt-filerne på serveren via ftp, virker det heller ikke.

På min lokale windows2000 sker det samme.

Umiddelbart kan jeg ikke se hvorfor du bruger \"If Session(\"Count\") <> true Then\" hvorfor bruger du ikke bare \"If isEmpty(session(\"count\")) Then\" hvis den overhovedet er nødvendig ?

Derudover har jeg lidt problemer med brugen af f at du lukker og derefter opretter igen...

      Set f = fso.CreateTextFile(path,True)
      f.Close   
      Set f = fso.GetFile(path)
      d = f.DateCreated

Du har nok ret i, at disse ting kunne laves smartere. Men det løser ikke mit problem. Ellers må jeg jo til, at lave det med en database.

altså samme navn.

Set f = fso.CreateTextFile(path,True)
f.Close 
Set f = Nothing 
Set dat = fso.GetFile(path)
d = dat.DateCreated
dat.Close
Set dat = Nothing

Nogen gange skal MS lige have tid til at bearbejde sagen.

Men det er jo slet ikke nødvendigt at checke datoen på filen når filen lige er oprettet.
d = Date

Så virker det da i hvert fald!

Fedt. Det virker.

Tak for hjælpen