Server.CreateObject("ADODB.Connection") dbPath = Server.MapPath("Download.mdb") oConnCD.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbPath & ";uid=Administrateur" sReq = "UPDATE FILES SET NBDOWN=NBDOWN+1 WHERE IDFILE=" & psIDFILE Application.Lock oConnCD.Execute(sReq) Application.UnLock oConnCD.Close End Sub ' Encadre une chaine de ' ' ex : toto devient 'toto' Function Quote(ps) Quote = "'" & ps & "'" end function ' Retourne la chaine 0 si la chaine est vide Function ZeroSiVide(ps) if trim(ps) = "" then
|
|
| Orchestra - Logiciels de gestion et Solutions d'encaissement pour Hôtels, Bars, Restaurants et Points de vente |
|
|