% Dim objFSO, objCountFile, strCountFileName, iCount, I strCountFileName = Server.MapPath("/compteur.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If ' Ferme le ficher objCountFile.Close Set objCountFile = Nothing ' ajoute 1 iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Ecris le nouveau chiffre objCountFile.Write iCount ' ferme le fichier objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing Response.Write iCount %>
ACTISOFT
L'informatique
en réseau Pour les PME et PMI
Logiciels DEVIS, FACTURATION, PAIE,
DOCUMENTS ELECTRONIQUES DISTRIBUES
EN GROUPE DE TRAVAIL, POUR INTRANET ET
FTP DIRECT.
REPRISE DES TABLEAUX DE
DETECTION DES ERREURS DE
POINTAGE ET SIGNALISATION AUTOMATIQUE.
PARAMETRAGE DES HEURES
DE REPOS DE MIDI POUR LES POINTAGES A LA JOURNEE.
CALCUL AUTOMATIQUE DES
HEURES SUPPLEMENTAIRES.
IMPRESSION DES TABLEAUX
DE POINTAGE PERSONALISES.
INTEGRATION DANS LE
LOGICIEL DE PAIE.
LOGICIEL ROUTEUR FAX en groupe de travail
réseau.
SERVEUR FAX-EMAIL CENTRALISE POUR
INTEGRATION FICHIERS TIF, PDF, DOC, XLS,
RTF, JPG, MAX etc…
sur logiciels DEVIS, FACTURATION, PAIE
CONTROLEUR D' EMAILS ENTRANT
Filtrage des publicités et autres
invitations douteuses.
Suppression avant chargement par OUTLOOK ou autre
gestionnaire.
Controleur multi-comptes
IMPRESSION
EN GROUPE DE TRAVAIL
PHOTO NUMERIQUE
La loire et l'océan.