<% If LCase(Request.Cookies("IWGalleryAccess")) <> "amministratore" Then Response.Redirect("logout.asp?reason=Accesso negato") %> <% Dim objZip, objItem Set objZip = Server.CreateObject("XStandard.Zip") %>

<%= Request.QueryString("file") %>

<% For Each objItem In objZip.Contents(Server.MapPath(strPublicPath & "/zip/" & Request.QueryString("file")))%> <% Next %> Contenuto: <%= objZip.Contents(Server.MapPath(strPublicPath & "/zip/" & Request.QueryString("file"))).Count %> files <% Response.Write objItem.Path & objItem.Name %>

<% Set objZip = Nothing Set objItem = Nothing %>