COBARIC | Comité de bassin de la rivière Chaudière

<% dim fs dim chemin dim script_name dim fichier dim ligne sub SousMenu(FichierMenu) Set fs = CreateObject("Scripting.FileSystemObject") chemin = Server.MapPath(FichierMenu & ".txt") script_name = lcase(request.servervariables("script_name")) if fs.FileExists(Chemin) then Set fichier = fs.OpenTextFile(chemin, 1, False) while not fichier.AtEndOfStream ligne = split(fichier.ReadLine,"|") if ubound(ligne) > 0 then response.write " " & ligne(0) & "
" & vbcrlf end if wend fichier.close end if set fs = nothing end sub %>