Download / Data

right click-> save as <%@ LANGUAGE=VBScript %> <% Dim fso, Files, File, Folder, var, farbe var=0 Set fso = CreateObject("Scripting.FileSystemObject") Set Folder = fso.GetFolder("C:\Websites\Customers\gascot.de\download\us") Set Files = Folder.Files For Each File in Files Dim sVariable For Each sVariable In Request.ServerVariables Next 'FileSize' dim FileSize, FileSizeUnit, erstelltam Set fso1 = CreateObject("Scripting.FileSystemObject") Set f = fso1.Getfile("C:\Websites\Customers\gascot.de\download\us\"&File.Name) FileSize = round (f.size/1024,1) if(FileSize>1000) then FileSizeUnit=FormatNumber (round(FileSize/1024,1),1,TristateTrue,TristateFalse,TristateTrue)&" MB" if(FileSize<1000) then FileSizeUnit=FormatNumber (round (FileSize,1),1,TristateTrue,TristateFalse,TristateTrue)&" KB" '/FileSize' 'datum auslesen' Set objFS = CreateObject("Scripting.FileSystemObject") Set objFile = objFS.GetFile("C:\Websites\Customers\gascot.de\download\us\"&File.Name) erstelltam= objFile.DateCreated '/ datum' Set fso1 = Nothing var=var+1 if(var Mod 2 = 1) then farbe="#ffffff" if(var Mod 2 = 0) then farbe="#e9eaec" %> <% Next Set Files = nothing Set fso = nothing %>

File:	Size:	Issue date:
<%Response.Write(File.Name)%>	<%Response.Write(FileSizeUnit)%>	<%Response.Write(erstelltam)%>