Set Conn = Server.CreateObject("ADODB.connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("database\zyber.mdb") Sql = "INSERT INTO Indkob (ID) VALUE ('"&"Session.SessionID"&"')" Set rs = Conn.execute( Sql ) Set rs = Nothing Conn.close Set Conn = Nothing End Sub
og i onend sub
Sub Session_OnEnd Set Conn = Server.CreateObject("ADODB.connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("database\zyber.mdb") Sql = "DELETE Indkob Where ID = '"&"Session.SessionID"&"'" Set rs = Conn.execute( Sql ) Set rs = Nothing Conn.close Set Conn = Nothing End Sub
Set Conn = Server.CreateObject("ADODB.connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("database\zyber.mdb") Sql = "INSERT INTO Indkob (ID) VALUE (&Session.SessionID&)" Set rs = Conn.execute( Sql ) Set rs = Nothing Conn.close Set Conn = Nothing
End Sub
</script>
Sub Session_OnEnd Set Conn = Server.CreateObject("ADODB.connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("database\zyber.mdb") Sql = "DELETE FROM Indkob Where ID = "&Session.SessionID&"" Set rs = Conn.execute( Sql ) Set rs = Nothing Conn.close Set Conn = Nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.