%@LANGUAGE="VBSCRIPT"%> <% Dim rs_discipline Dim rs_discipline_numRows Set rs_discipline = Server.CreateObject("ADODB.Recordset") rs_discipline.ActiveConnection = MM_inforef_STRING rs_discipline.Source = "SELECT * FROM discipline" rs_discipline.CursorType = 0 rs_discipline.CursorLocation = 2 rs_discipline.LockType = 1 rs_discipline.Open() rs_discipline_numRows = 0 %> <% Dim rs_theme Dim rs_theme_numRows Set rs_theme = Server.CreateObject("ADODB.Recordset") rs_theme.ActiveConnection = MM_inforef_STRING rs_theme.Source = "SELECT * FROM theme" rs_theme.CursorType = 0 rs_theme.CursorLocation = 2 rs_theme.LockType = 1 rs_theme.Open() rs_theme_numRows = 0 %> <% Dim rs_niveau Dim rs_niveau_numRows Set rs_niveau = Server.CreateObject("ADODB.Recordset") rs_niveau.ActiveConnection = MM_inforef_STRING rs_niveau.Source = "SELECT * FROM niveau" rs_niveau.CursorType = 0 rs_niveau.CursorLocation = 2 rs_niveau.LockType = 1 rs_niveau.Open() rs_niveau_numRows = 0 %> <% Dim rs_partenaire Dim rs_partenaire_numRows Set rs_partenaire = Server.CreateObject("ADODB.Recordset") rs_partenaire.ActiveConnection = MM_inforef_STRING rs_partenaire.Source = "SELECT * FROM partenaire" rs_partenaire.CursorType = 0 rs_partenaire.CursorLocation = 2 rs_partenaire.LockType = 1 rs_partenaire.Open() rs_partenaire_numRows = 0 %> <% Dim rs_categorie Dim rs_categorie_numRows Set rs_categorie = Server.CreateObject("ADODB.Recordset") rs_categorie.ActiveConnection = MM_inforef_STRING rs_categorie.Source = "SELECT * FROM categorie" rs_categorie.CursorType = 0 rs_categorie.CursorLocation = 2 rs_categorie.LockType = 1 rs_categorie.Open() rs_categorie_numRows = 0 %> <% Dim rs_pays Dim rs_pays_numRows Set rs_pays = Server.CreateObject("ADODB.Recordset") rs_pays.ActiveConnection = MM_inforef_STRING rs_pays.Source = "SELECT * FROM pays" rs_pays.CursorType = 0 rs_pays.CursorLocation = 2 rs_pays.LockType = 1 rs_pays.Open() rs_pays_numRows = 0 %> <% Dim rs_langue Dim rs_langue_numRows Set rs_langue = Server.CreateObject("ADODB.Recordset") rs_langue.ActiveConnection = MM_inforef_STRING rs_langue.Source = "SELECT * FROM langue_2" rs_langue.CursorType = 0 rs_langue.CursorLocation = 2 rs_langue.LockType = 1 rs_langue.Open() rs_langue_numRows = 0 %> <% Dim rs_evaluation Dim rs_evaluation_numRows Set rs_evaluation = Server.CreateObject("ADODB.Recordset") rs_evaluation.ActiveConnection = MM_inforef_STRING rs_evaluation.Source = "SELECT * FROM evaluation" rs_evaluation.CursorType = 0 rs_evaluation.CursorLocation = 2 rs_evaluation.LockType = 1 rs_evaluation.Open() rs_evaluation_numRows = 0 %> <% Dim rs_support Dim rs_support_numRows Set rs_support = Server.CreateObject("ADODB.Recordset") rs_support.ActiveConnection = MM_inforef_STRING rs_support.Source = "SELECT * FROM support" rs_support.CursorType = 0 rs_support.CursorLocation = 2 rs_support.LockType = 1 rs_support.Open() rs_support_numRows = 0 %> <% Dim rs_motcle Dim rs_motcle_numRows Set rs_motcle = Server.CreateObject("ADODB.Recordset") rs_motcle.ActiveConnection = MM_inforef_STRING rs_motcle.Source = "SELECT * FROM motcle" rs_motcle.CursorType = 0 rs_motcle.CursorLocation = 2 rs_motcle.LockType = 1 rs_motcle.Open() rs_motcle_numRows = 0 %>