Tæller laver rod i database!?

og et dumt spg. du husker at lukke din database med base.close ik ?
Du har ikke \'On Error resume next\' på vel ?

Hej kasseper

Lukker databasen? Du mener vel ikke i forbindelse med ovenstående kode, vel. Og jo, \'On Error Resume Next\' har jeg i nogle andre tilknyttede filer. Kan det være grunden til, at det hele roder lidt? Det hele har virket uden problemer, men da jeg satte tælleren på, ville database ikke lukke.

<%
\'taeller sessioner - ikke hits
Dim fs, file, visitorcount

    set fs = createobject(\"scripting.filesystemobject\")
    set file = fs.opentextfile(server.mappath(\"log/count.dat\"))
    visitorcount = cint(file.readline)
    if session(\"visitorcount\") = \"\" then
        session(\"visitorcount\") = visitorcount
        visitorcount = visitorcount + 1
        file.close
        set file = fs.createtextfile(server.mappath(\"log/count.dat\"),true)
        file.writeline(visitorcount)
    end if
    file.close
    set fs = nothing

response.write visitorcount

%>

lav lidt om i den her, det er ikke så smart at du åbner textfilen, selvom den ikke skal bruges, i stedet så spørg efter sessionen først:

<%
\'taeller sessioner - ikke hits
Dim fs, file, visitorcount

if session(\"visitorcount\") = \"\" then

    set fs = createobject(\"scripting.filesystemobject\")
    set file = fs.opentextfile(server.mappath(\"log/count.dat\"))
    visitorcount = cint(file.readline)
   
        session(\"visitorcount\") = visitorcount
        visitorcount = visitorcount + 1
        file.close
        set file = fs.createtextfile(server.mappath(\"log/count.dat\"),true)
        file.writeline(visitorcount)
file.close
    set fs = nothing   
end if
   

response.write visitorcount

%>

og btw, det visitortal du får her, det er ikke det tal nr. brugeren selv har. Brugeren har kommer f.eks. ind efter bruger nr. 76, men får kun nr. 76 fordi du først ligger tallet til bagefter, byt om på disse linier ...:

        session(\"visitorcount\") = visitorcount
        visitorcount = visitorcount + 1
så det ser sådan ud:
       
    visitorcount = visitorcount + 1
        session(\"visitorcount\") = visitorcount

Hej ellebaek

Ja, fint nok. Nu åbner databasen ikke, men tælleren er ikke synlig på siden nu.

Denne fejlmeddelse kommer....

Microsoft VBScript runtime error \'800a004c\'
Path not found
D:\\WWW2\\PUNCTURESHOP\\SHOP\\../head.inc, line 49

Dette er linie 49:
set file = fs.opentextfile(server.mappath(\"log/count.dat\"))

Hej ellebaek

Kan man ikke via en global.asa skrive antallet af besøgende til en tekstfil? Altså som i ovenstående eksempel. Jeg tror, at det er stierne der driller lidt.
Jeg har en global.asa, der ser sådan ud. Kunne du måske fortælle mig, hvordan den skal se ud, hvis jeg skal skrive til filen \"count.dat\"?

Global.asa kode:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
  Application.Lock
  Application(\"allUser\") = 0
  Application.UnLock
End Sub

Sub Session_OnStart
  Application.Lock
  Application(\"allUser\") = Application(\"allUser\") + 1
  Application.UnLock
End Sub

</SCRIPT>

Lars-k

jo ...

kan jeg ikke forklare dig hvordan i morgen ??

Hej ellebaek

Jo, hvis du har tid vil det være fint. Jeg er på det meste af dagen......

Lars-k

Sub Session_OnStart
  Application.Lock
  Application(\"allUser\") = Application(\"allUser\") + 1
  set file = fs.createtextfile(server.mappath(\"log/count.dat\"),true)
        file.writeline(Application(\"allUser\"))

Application.UnLock
End Sub

Prøv dette ...

Der bliver skrevet til filen, men hvis serveren går ned, begynder tælleren så fra 0 eller det antal der står i filen \'count.dat\'?

Object required: \'fs\'

Denne fejlmeddelse fremkommer, når koden er uploaded. Det er ifm. linien:

set file = fs.createtextfile(server.mappath(\"log/count.dat\"),true)
       

hmmn ...
hvis serveren går ned skal du lave en tingest i den session_onStart der fortæller at mængden af brugere ikke er den dersens aplication, men i stedet textfilen. Kan du ikke lave det sådan så den laver en ny fil, der bare hedder antallet,uden efternavn ? så skulle det virke !

.......jo, nu kører det. Ellebaek, kan du ikke lige oprette et svar, så du kan få nogle point.

Lars-k

jojo

Og tak for hjælpen!