<%
Option Explicit
%>
<%
Session.LCID = 2058
Dim Carpeta
Carpeta = Request("Carpeta")
%>
<!--#include file="User.asp"-->
<!--#include file="general.asp"-->
<html>
<head>
<title>Grupo MIM</title>
<link rel=stylesheet href="vista.css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
<link rel="shortcut icon" href="Image/mim3d.ico" type="image/x-icon" />
</head>
<BODY>
<center>
<!--#include file="empresa.asp"--><br><br>
<!--#include file="menu.asp"-->
<br><br><br>
<!--#include file="catalogos.asp"-->
<%
'**** ESPACIO PARA LAS CONEXIONES
Dim fso
Dim Carpetas, subfolder
dim C, A
Set fso = Server.CreateObject("scripting.fileSystemObject")
Set Carpetas = fso.GetFolder(server.MapPath("/CF9C9058A287A42A0CF29D20F13C86CB66151230"& Carpeta))
%>
<Table Border="0" width="1024px">
<Tr>
<td Class="Negritab"></td>
<td Class="Negritab">Nombre</td>
<td Class="Negritab">Fecha de Modificacion</td>
<td Class="Negritab">Tipo</td>
<td Class="Negritab"></td>
</Tr>
<Tr>
<Td colspan="5"><hr></td>
</Tr>
<%
for each C in Carpetas.SubFolders
%>
<Tr>
<td Class="Normalw">
<form action="Catalogo.asp" method="post">
<Input Type="Hidden" Value="<%= Carpeta & "/" & C.name %>" Name="Carpeta">
<input type="image" src="Image/Carpeta.jpg" Width="25px"" value="Enviar" />
</form>
</Td>
<td Class="Negrita"><%= C.name %></td>
<td Class="Negrita"><%= C.DateLastModified %></td>
<td Class="Negrita"><%= C.Type %></td>
<td Class="Negrita" Align="Right"><%= formatnumber((C.Size/1024),0) %> KB</td>
</Tr>
<%
next
%>
<%
for each A in carpetas.files
%>
<Tr>
<td Class="Negrita"></td>
<td Class="Negrita"><a href="/CF9C9058A287A42A0CF29D20F13C86CB66151230/<%= Carpeta %>/<%= A.name %>" Target="catalogosmim"><%= A.name %></a></td>
<td Class="Negrita"><%= A.DateLastModified %></td>
<td Class="Negrita"><%= A.Type %></td>
<td Class="Negrita" Align="Right"><%= formatnumber((A.Size/1024),0) %> KB</td>
</Tr>
<%
next
%>
</Table>
<%
Set Carpetas = nothing
Set fso = nothing
%>
</body>
</html>
<%
End Sub
'Add the chosen course to the cart
Call AddUsuario()
'Display contents of electronic shopping cart
Call DisplayUsuario()
%>