<%@ language="VBSCRIPT"%> <% Response.ContentType = "text/vnd.wap.wml" Response.Expires = 0 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-Control", "no-cache,must-revalidate" %> <% sub dir(Path,Prefix) set Folder = fs.GetFolder(Path) Set SubFolders = Folder.SubFolders for each SubFolder in SubFolders response.write "" & Prefix & SubFolder.Name & " ( " & round((SubFolder.Size/1000000),2) & " Mo ) " & "
" & vbCrLf call dir(SubFolder.Path, Prefix & " - ") next Set Files = Folder.Files for each File in Files 'response.write Prefix & File.Name & "
" & vbCrLf response.write "" & Prefix & File.Name & " ( " & round((File.Size/1000),2) & " Ko ) " & "" & _ " MailMe" & "" & "
" & vbCrLf next end sub %> <% if (hour(time) < 8 or hour(time) > 19) or Request.servervariables("http_x_up_subno") = "1030454469-2153942_toth.sfr.net" or Request.servervariables("http_x_up_subno") = "A030803214-4197432-nok.sfr.net" then %>

Retour

<% Set fs = CreateObject("Scripting.FileSystemObject") call dir("D:\Autres Sites\wap.z51.biz\7650\" & request("f"), "") %>

<% else %>

Cette partie du site est ouvert de 20h a 8h gmt+1
This part of the site is open between 20h and 8h am gmt+1
jocool@z51.biz

<% end if %>