<% @language=VBScript %> <% Response.expires=0 %> <% 'Chemin en référence absolue jusqu'à la base de donnée path=Server.MapPath("../data/heuby.mdb") 'Création de la chaîne de connection à la base de donnée strConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path 'strConnection=strConnection & ";UID=sa;PWD=viande" 'Création de la chaîne de connection à la base de donnée Set objConn=Server.CreateObject("ADODB.Connection") 'Ouverture de la connection à la base de donnée objConn.Open strConnection 'Création de l'objet de déplacement dans la base de donnée Set objRS=Server.CreateObject("ADODB.Recordset") 'Réglage de l'objet de déplacement dans la base de donnée objRS.CursorLocation=adUseServer objRS.CursorType=adOpenForwardOnly objRS.LockType=adLockOptimistic 'Sélectionne le bon champ a compléter objRS.Open "SELECT compteur.bureau_comptable FROM compteur WHERE compteur.no_visite=1", objConn, , , adCmdText 'met a jour le champ objRS("bureau_comptable")=objRS("bureau_comptable")+1 'Mise a jour des donnée de la base de donnée objRS.Update 'Fermeture de l'objet de déplacement dans la base de donnée objRS.Close Set objRS=Nothing 'Fermeture de la connection à la base de donnée objConn.Close Set objConn=Nothing %> Plan d'accès... Retour...

A votre service pour:

	Comptabilité
	Bouclements de comptes
	TVA
	Délarations d'impôts
	Salaires
	Gestion
	Correspondances
	Travaux administratifs divers
	Assurances

Je suis à votre disposition pour toutes vos demandes ou questions. Mme Dominique Heuby

+41 32 853 17 23
+41 79 541 76 16
dominique.heuby@bluewin.ch
http://www.heuby.ch