6 svar · 204 visningar · startad av Fredriksson
Jag vill göra följande m.h.a global.asa:
När en besökare går in på sidan och värdet i session("namn") <> "" så ska status = 1 i databladet folk där namn = värdet i session("namn").
När besökaren lämnar sidan ska status ändras tillbaka till 0.
Om det var nån som förstod så kanske vederbörade kan hjälpa mig ... :)
------------------
F R E D R I K S S O N
Sub Session_OnStart
'diverse kopplingar
strSQL ="UPDATE T_TABELL SET status = 1 WHERE Namn = '"&Session("Namn")
ObjConn.execute(strSQL)
'diverse stängningar av kopplingar
End Sub
Sub Session_OnEnd
'diverse kopplingar
strSQL ="UPDATE T_TABELL SET status = 0 WHERE Namn = '"&Session("Namn")
ObjConn.execute(strSQL)
'diverse stängningar av kopplingar
End Sub
:OO
------------------
I like ¼ £ whith cheese
[Redigerat av icaaq den 14 aug 2001]
Testade nåt liknande innan med det vill inte funka. FÅr väl testa detta också då.
Tack!
------------------
F R E D R I K S S O N
Testade med detta med det ville inte funka. :(
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
Application("Constring") = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("DATABASEN.mdb") & ";"
END SUB
SUB Session_OnStart
Session.TimeOut = 60
END SUB
Sub Session_OnEnd
Set Connection1 = Server.CreateObject("ADODB.Connection")
Connection1.Open Application("ConString")
SQLStmt1 = "Update Folk set "
SQLStm1t = SQLStmt1 & " Status = '0' "
SQLStmt1 = SQLStmt1 & " where Medlem = '" & Session("namn") & "' "
Connection1.Execute(SQLStmt1)
Connection1.Close
End Sub
Sub Application_OnEnd
On Error Resume Next
Set Connection2 = Server.CreateObject("ADODB.Connection")
Connection2.Open Application("ConString")
SQLStmt2 = "Update Folk set "
SQLStmt2 = SQLStmt2 & " Status = '0' "
Connection2.Execute(SQLStmt2)
Connection2.Close
End Sub
</SCRIPT>
------------------
F R E D R I K S S O N
Vid Session_OnStart kan Session("Namn") inte gärna ha något värde, så så kan man inte göra.
[r]Syftade på icaaqs kod[/r]
Sätt värdet samtidigt som Session("Namn") får sitt värde.
Är Status verkligen ett textfält?
[Redigerat av emission den 14 aug 2001]
ok. Men har session("namn") ett värde vid session_onEnd?
Att få status = 1 när sessionen sätts är inget problem. Men jag får inte tillbaka den till 0 när sessionen avslutas.
:q
------------------
F R E D R I K S S O N
[Redigerat av Fredriksson den 14 aug 2001]
Såg ett fel i din kod
Sub Session_OnEnd
Set Connection1 = Server.CreateObject("ADODB.Connection")
Connection1.Open Application("ConString")
SQLStmt1 = "Update Folk set "
SQLStmt1 = SQLStmt1 & " Status = '0' "
SQLStmt1 = SQLStmt1 & " where Medlem = '" & Session("namn") & "' "
Connection1.Execute(SQLStmt1)
Connection1.Close
End Sub
du skrev sqlstm1t istf sqlstmt1 på ett ställe.
------------------
essentitia preter non sans multiplicandum