<% 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] = 'tramont'" objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly %>


Bureau des Guides Équestres Transpyrénéens

Vacances, expéditions et randonnées d'altitude à cheval : Nature, montagne, sites et patrimoine, équitation et plein air. Culture et gastronomie. Ecotourisme.

 ... Redirection en cours vers le site des Chevaux de la Tramontane

Suite