<%If Session("Login") = "1" Then%> <% if request("tipo")<>"" then session("tipocarpeta") = request("tipo") If Request.QueryString("var") = "DeleteFile" Then Response.Write("
") Response.Write Request.QueryString("FILE") Set File = Server.CreateObject("ActiveFile.File") File.Name = "C:\Webs\5411\Asiar\Site\Admin\" & session("tipocarpeta") &"\"& Request.QueryString("FILE") File.Delete Response.Redirect "verarchivo.asp" End If%>

Upload Imagen de <%=session("tipocarpeta")%> <%resul = 1%> <% Set Dir = Server.CreateObject("ActiveFile.Directory") Dir.Path = "C:\Webs\5411\Asiar\Site\Admin\" & session("tipocarpeta") %> <%If Dir.files.Count = 0 Then%> <%End If%> <% For I = Dir.Files.Count To 1 Step -1 %> <% If resul = 1 Then resul = 0 Else resul = 1 End If Next %> Nombre Tamaño Ultima Modificacion Borrar No se encontraron Imagenes para mostrar  <%=Dir.files(I).FileName%> <%=FormatNumber(Dir.files(I).Size/1024,2)%> KB  <%=Dir.files(I).LastModified%>

<% Else Response.Redirect("Login.asp") End If %>