Discussion :

[Olv_m]

Bon, j'ai téléchargé le correctif (KB934903) sur un site (http://thehotfixshare.net/) et ça me semble fonctionner correctement... Il était temps.

En tout cas merci bcp roro et franculo_caoulene.

J'aurai pu toujours chercher dans mon global.asa

Oui je suis sous win 2003 server SP2...

Allez je clos le sujet et merci encore à vous

[Immobilis]

Salut,

Juste une petite remarque, je ne crois pas que ce soit une bonne idée de laisser une connection ouverte comme ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    sub application_onstart
        Set Application("MaConnexion") = CreateObject("ADODB.Connection")
        Application("MaConnexion").connectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\sites web\tst\tst.mdb"    
        Application("MaConnexion").open
    end sub

C'est probablement pas très sécurisé. Les variables d'applications ne sont détruites qu'explicitement ou lorsque le site ne fonctionne pas.
En toute logique, quand on ne se sert pas de quelque chose on le range. Si tu n'interroge pas ta base, ben ferme la connection.

De plus utilises-tu cette connection ailleurs?

Sinon, voici un code qui permet de compter le nombre de visiteurs sur un site. A la place d'un compteur, tu peux mettre le nom des internautes sous la forme d'un tableau ou d'un dictionnaire (scripting.dictionary).
A moins que tu souhaites faire autre chose avec les données que tu mets en base, ce serait suffisant et toujours ça de moins à traiter pour la base.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
 
	Sub Application_OnStart
		Application("visiteur") = 0
	End Sub
 
	Sub Application_OnEnd
	End Sub
 
	Sub Session_OnStart
		Application.Lock
			Application("visiteur") = Application("visiteur") + 1
		Application.Unlock
	End Sub
 
	Sub Session_OnEnd
		Application.Lock
			if Application("visiteur") > 0 then
				Application("visiteur") = Application("visiteur") - 1
			end if
		Application.Unlock
	End Sub
 
</SCRIPT>

A+

[roro06]

tu peux mettre le nom des internautes sous la forme d'un tableau ou d'un dictionnaire (scripting.dictionary).

+1

J'avais pas pensé à un dictionary, c'est peut-etre la bonne solution, en effet