|
Connexion(s) : <%
'fichier=Server.MapPath("\Site LDanse\repupload") &"\compteur.txt"
'response.write("MapPtah : " & fichier)
'Response.end
'*** Définition des variables ***
'*** Mettez entre les guillemets le nom de votre compte efrance exemple = VotreReptoire="Musique" ***
VotreReptoire="Site LDanse"
'*** Combien de chiffre voulez vous à votre compteur exemple NbeChiffre=5 ***
NbeChiffre=3
'*** Avec ou Sans 0 devant le chiffre de votre compteur exemple Zero="oui" ou Zero="non" ***
Zero="oui"
'response.write(" NB Visisteur : " & Application("Visiteur"))
'response.end
NbeVisite=Application("Visiteur")
xx=Len(NbeVisite)
nombre=NbeVisite
Redim T(50)
for i=1 to xx
ss=left(nombre,1)
T(i)=Right(nombre,1)
nombre=left(nombre,len(nombre)-1)
next
if Zero="oui" then
if xx <%next%> <%
end if
end if
if xx=NbeChiffre then
Application("nomvisite")=0
Set obj=CreateObject("Scripting.FileSystemObject")
obj.CreateTextFile fichier
set objf=obj.GetFile(fichier)
Set objWrit=objf.openAsTextStream(8)
objWrit.WriteLine(0)
objWrit.Close
end if
%><%for i=0 to xx%><%if T(i)<>"" then%> <%end if%><%next%>
Visiteurs :
|
Cours Stages Formations
|
19 rue de l'Aunois,
77000 VAUX LE PENIL
http://storydanse.fr
|

Animations Soirées
|