RE global.asa

cs_AgentSmith Messages postés 26 Date d'inscription dimanche 16 décembre 2001 Statut Membre Dernière intervention 2 avril 2009 - 16 déc. 2001 à 17:43
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 - 24 déc. 2001 à 12:51
DESEPERER
Bonjour,
Je voudrais à l'aide du fichier global.asa apres que le client est ouvert une session.
A la fermeture de la session ou la fermeture du navigateur ou tous simplement lorsque le client quitte le site X de pouvoir supprimer des données dans la base de données ACCESS automatiquement.

La question est comment procede-ton ?
Voila ce que j'ai fait dans le fichier global.asa dans la partie "Session_OnEnd" mais rien ne ce passe alors comment faire ?

LE FICHIER GLOBAL.ASA COMPLET

<OBJECT RUNAT=Server SCOPE=Application ID=Counter PROGID="MSWC.Counters"></OBJECT>

<script language=VBScript runat=Server>

Sub Application_OnStart

'Nombres de Visiteurs
Application("visiteur") = 0

Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open "DSN=baseDB;UID=;PWD=;"

'Set delChamp = Cnn.Execute("DELETE FROM LS_add_items")
'Set delChamp = Nothing

Set maxOrderSet = Cnn.Execute("SELECT order_id FROM LS_add_items ORDER BY order_id DESC")

If maxOrderSet.EOF then
Application("order_id") = 1
else
Application("order_id") = maxOrderSet("order_id") + 1
End if

maxOrderSet.Close
Set maxOrderSet = Nothing

Cnn.Close
Set Cnn = Nothing
End Sub

Sub Session_OnStart
Application.Lock
Application("visiteur") = Application("visiteur") + 1
Application.Unlock
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnEnd
'Nombres de Visiteurs
Application.Lock
Application("visiteur") = Application("visiteur") - 1
Application.Unlock

'VOILA LE CODE QUI DOIT EFFACER TOUS LES CHAMPS DE LA BASE A CHAQUE ARRET D'UNE SESSION EST-CE BON ?
'PARCE QUE RIEN NE MARCHE POUR LA FIN DE LA SESSION
'MÊME LE CODE CI-DESSUS NE FONCTIONNE PAS, LE -1 N'EST PAS PRIS EN COMPTE
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open "DSN=baseDB;UID=;PWD=;"

Set delChamp = Cnn.Execute("DELETE FROM LS_add_items")
Set delChamp = Nothing

Cnn.Close
Set Cnn = Nothing

End Sub

</script>

FIN DU FICHIER GLOBAL.ASA

2 réponses

cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
24 déc. 2001 à 12:50
Si le -1 est pris en compte 25 min apres que le client quitte le site.
Il faut que tu chance la session.timout = 5
comme ca le compteur change apres 5 min à moins -1 si le client n'a rien fait depuis 5 min ou s'il a quitter le site
0
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
24 déc. 2001 à 12:51
Si le -1 est pris en compte 25 min apres que le client quitte le site.
Il faut que tu chance la session.timout = 5
comme ca le compteur change apres 5 min à moins -1 si le client n'a rien fait depuis 5 min ou s'il a quitter le site
0
Rejoignez-nous