%
Dim myConnString
Dim myConnection
Dim mySQL
Dim objRS
Dim strBody
Dim strBody1
dim objConn
dim saut2
saut2="
"
Const adOpenStatic = 3
Const adLockReadOnly = 1
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
strDSN = "DSN=equipyr"
objConn.Open strDSN 'Pour ajout
dim strSQL
strSQL = "UPDATE admin SET [Libre] = [Libre] +1 WHERE [Lien] = 'aubcav'"
objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly
%>
Bureau des Guides Équestres
Transpyrénéens