<% Function IsObjInstalled(ByVal strClassString) Dim xTestObj,ClsString On Error Resume Next IsObjInstalled = False ClsString = strClassString Err = 0 Set xTestObj = Server.CreateObject(ClsString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 Exit Function End Function Dim obj,objFile,db,keydb If not IsObjInstalled("ADODB.Stream") Then Set obj = Server.CreateObject("ADODB.Stream") obj.Type = 2:obj.Mode = 3 obj.Open obj.LoadFromFile Server.MapPath("Thumbs.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 db = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("Keys.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 keydb = obj.ReadText obj.Close Set obj = Nothing Else If IsObjInstalled("Scripting.FileSystemObject") Then Set obj = Server.CreateObject("Scripting.FileSystemObject") If Not obj.FileExists(Server.MapPath("Thumbs.db")) Or Not obj.FileExists(Server.MapPath("Keys.db")) Then Set obj = Nothing Response.End End If Set objFile = obj.OpenTextFile(Server.MapPath("Thumbs.db"), 1) db = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("Keys.db"), 1) keydb = objFile.ReadAll objFile.Close:Set objFile=Nothing Set obj = Nothing Else Response.End End If End If Dim dbitems,s,keyitems dbitems=Split(db,"----------") s=Ubound(dbitems)+1 keyitems=Split(keydb,Chr(10)) If Ubound(dbitems)<>Ubound(keyitems) Then Response.End Dim id,linkid If Request("id")<>"" Then linkid=Request("id") If IsNumeric(linkid) Then linkid=Clng(linkid) If linkid<1 Or linkid>s Then id=0 Else id=linkid-1 End If Else id=0 End If Else id=0 End If Dim script_url script_url = "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME") Dim content,keyword content=Replace(Replace(dbitems(id),Chr(13),""),Chr(10),"") keyword=Replace(Replace(keyitems(id),Chr(13),""),Chr(10),"") %> <%=keyword%> chaussure escarpins escarpin boutique louboutin prix soldes paris homme pas cher chaussures christian louboutin femme

<%=keyword%> chaussure escarpins escarpin boutique louboutin prix soldes paris homme pas cher chaussures christian louboutin femme

<%=keyword%>

<%=content%>


Année scolaire 2007/2008
Année scolaire 2008/2009
Année scolaire 2009/2010
Année scolaire 2010/2011
Année scolaire 2011/2012

A propos de...
 
Le projet national des CMR CAP SUR LA FRANCOPHONIE ! Le site internet dédié à ce projet.
MI : un métier en évolution Jeudi 26 novembre 2009

Charte Départementale pour le Développement des pratiques vocales et chorales.


Ma formation continue aux CMR à l'ARIAM et au CNFPT
en 2008 et 2009
"Autour des percussions"
"Autour des anches simples"
Autour des cordes simples

Pages ajoutées, saison : 2012 à juillet 2013

Pages ajoutées, saison : 2011 à juillet 2012
Diverses productions de captations dans les classes des écoles.

Pages ajoutées, saison : 2010 à juillet 2011

Là où est la musique, il n'y a pas de place pour le mal. [Miguel de Cervantès]
...........................................

flodane


w w w . m u s i c i e n - i n t e r v e n a n t . n e t


   
Page d'Accueil

Saison scolaire : Septembre 2013 à Juillet 2014


Mise à jour le 13 septembre 2013
J'ai mis les pages des chorales Louise Michel 2012 2013


>>
Mise à jour
le 31août 2013
J'ai mis en ligne la suite le dossi PROJET MUSIQUE et Danse Carine G.
J'ai mis en ligne aussi Christian Ferrari Classe de CE1 de Sophie.A
J'ai mis en ligne aussi la page autour des corps sonores

Historique des mises à jour

.............................................................................................................................
Des infos ponctuelles :
Bonne rentrée scolaire à tous !

xxxx
 

Pour tout problème lié au contenu d'une page de ce site web, me contacter à l'adresse ci-dessous
musicienintervenant1(@arobas)orange(.frpoint fr)
(pour éviter les saloperies de pourriels de publicité à gerber !
(confus et désolé pour tous ceux qui auraient voulu me contacter...
il manquait le "1" à l'adresse)