Global asa(vil ikke skrive til fil)

Går det an at drille FSO med at genbruge variablen fil?

den virker hvis jeg smider FSO'en op i sub session_OnEnd

Server.Mappath virker ikke i Session_OnEnd. Du skal skrive den rigtige sti.

eerrmm eagle, den opretter alså filen i det rigtige dir..så hvis server.mappath ikke virkede, ville den vel heller ikke oprette filen det rigtige sted ?

ok.. det plejer at være problemmer med mappath og databaser i onEnd..

Men ... du kan ikke ligge noget i noget variable i OnStart og så bruge dem i OnEnd, ikke engang hvis de er globale da de vil blvier overskevet at nye brugere som måtte komme forbi siden..Du må gemme de informationer i Session:

Session("hvem" = request.servervariables("REMOTE_ADDR")
osv.

oki prøver lige...

hmm nu ser det sådan her ud
Sub session_OnStart
           
        Session("hvem") = request.servervariables("REMOTE_ADDR")
        Session("browser") = request.servervariables("HTTP_USER_AGENT")
        Session("dato") = date
        Session("STtid") = time
   
    end sub
   
    Sub Session_OnEnd
        SLtid = time
        Ttid = datediff("s",STtid,SLtid)
       
        tekst = "ip=" & Session("hvem") & "," & "browsertype=" & Session("browser") & "," & "dato=" & Session("dato") & "," & "starttid=" & Session("STtid") & "," & "totaltid=" & Ttid
       
        ForR = 1
        ForW = 2
        ForA = 8
       
        Fil = Server.mappath("/pizzatest/count/info.txt")
        set FSO = Server.CreateObject("Scripting.FileSystemObject")
        set Fil = fso.Opentextfile(fil,ForA,True)
        fil.writeline tekst
        Set FSO = Nothing
       
        end sub

men den vil stadig ikek skrive til filen, den opretter den..men vil ikke skrive :-/

Skriver den heller ikke Ip=  browsertype=??

Du kalder stien til filen fil og filen fil. Prøv dette:

      Filsti = Server.mappath("/pizzatest/count/info.txt")
      set FSO = Server.CreateObject("Scripting.FileSystemObject")
      set Fil = fso.Opentextfile(Filsti,ForA,True)
      fil.writeline tekst
      fil.close
      Set FSO = Nothing

den skriver intet

Kan du for testes skyld prøve at ændre:
Filsti = Server.mappath("/pizzatest/count/info.txt")

Til at skrive stien som den er:
Filsti = "c:\pizzatest\count\info.txt"

prøver lige..

woohoo nu skriver den :)

men,,umm skulle den ikek først skrive til filen når brugeren forlader siden ?

Jo når det ligger i Session_OnEnd
Det bliver måske skrevet med det samme??

ser sådan ud ..huum

ignorer lige det jeg sagde med den gjore det før ;-)
forresten..er der noget at gøre ved at den sub session køre de 20 min ?
før den skrive til filen =

æh jeg er ikke helt med??
Tænker du på session timeout??

Du kan ændre det ved at skrive :
Session.Timeout = 5 'antal i minutter

jaa..:)
men det påvirker vel alle sessioner som bruges på sistet ik ?

forresten, nu da jeg er igang med at stille dumme spørgsmål, er der noget som hedder Timediff, lige som Datediff ?

Ja de påvirker alle sessions...

Nej det gøre der ikke, du skal bruge DateDiff´, hvad vil du havde regnet ud?

hvis jeg har 2 tider

tid1 = 22:12:35
tid2 = 22:17:58

så vil jeg gerne have forskellen på de 2 tider

Det har jeg en function til:


function TimeCalc(Display, StartTime, FinishTime)
Dim diff, mins, hours, secs
diff = datediff("s",StartTime,FinishTime)
'set the minutes ignoring the remaining fraction
hours = int(diff / (60*60))
' set the minutes by using the remaining fraction and multiplying by 60 i.e., .5 * 60 = 30
mins = round(60*(diff / (60*60) - hours),0)
secs = round(diff - ((60*60)* hours) - (60 * mins),0)
hours = string(2-len(hours),"0") & hours
mins = string(2-len(mins),"0") & mins
secs = string(2-len(secs),"0") & secs
' how do we want to return the calculation..?
select case lcase(Display)
  case "screen"
    TimeCalc = hours & " hours and " & mins & " minutes"
  case "database"
    TimeCalc = hours & ":" & mins & ":" & secs
end select
end function



sStartTime = "14:00:00"
sEndTime = "16:23:15"
sTimeDiff = TimeCalc("database", sStartTime, sEndTime)
response.write sTimeDiff

øv..man kan åbenbat ikke bruge functioner i en global.asa

oh well
takker for hjælpen...vil prøve at se om jeg kan får det til at virke ordenligt senere...er lidt problemer med at få den til at skrive i filen..men tak for hjælpen