4 svar · 172 visningar · startad av brw
Hej!
Jag undrar hur jag ska få denna kod att fungera mot en access-databas.. den fungerar bara mot SQL-databas nu.
SQLStmt5 = "Delete FROM inloggade WHERE datumreg < '" & dateadd("h",-5,now()) & "' "
Connection.Execute(SQLStmt5)
SQLStmt5 = "Delete * FROM inloggade WHERE datumreg < #" & dateadd("h",-5,now()) & "# "
Connection.Execute(SQLStmt5)
??
' ## GLOBAL.ASA
' ## - ENTIRE SITE
' ## Application_OnStart
' ## Application_OnEnd
' ## - UNIQUE FOR EVERY USER
' ## Session_OnStart
' ## Session_OnEnd
<SCRIPT LANGUAGE="VBScript" RUNAT="server">
SUB Application_OnStart
' ## COUNTER FOR THE ENTIRE SITE
application("ActiveUsers") = 0
END SUB
SUB Session_OnStart
' ## SWEDISH DATES
session.LCID = 1053
Session("Start") = Now
Application.Lock
application("ActiveUsers") = application("ActiveUsers") + 1
application("visitors") = application("visitors") + 1
Application.UnLock
END SUB
SUB Session_OnEnd
Application.Lock
application("ActiveUsers") = application("ActiveUsers") - 1
Application.UnLock
END SUB
SUB Application_OnEnd
END SUB
</SCRIPT>
<%
response.write "Det finns för tillfället " & application("activeUsers") & " personer på sajten."
%>
Använd session.timeout = 5*60 för att sätta en session till fem timmar. 30 minuter är default. (Eller var det 20??)
20 :)