I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.