|
||||
|
<% ' Ouverture base valeurs ( Con ) Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open "Afer" ' ouverture du Recordset Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Con RS.CursorType = adOpenStatic RS.Open "SELECT * FROM donnees" taux = RS("taux") datevaleur = RS("date_valeur") montant_dynafer = RS("dynafer_e") hauteur_dynafer = RS("dynafer_dim") montant_sfer = RS("sfer_e") hauteur_sfer = RS("sfer_dim") montant_planisfer = RS("planisfer_e") hauteur_planisfer = RS("planisfer_dim") montant_eurosfer = RS("eurosfer_e") hauteur_eurosfer = RS("eurosfer_dim") montant_flore = RS("flore_e") RS.Close Con.Close %>
|
||||||||||||||||||||||||||||||||||||