De hecho hasta voté 2 o 3 veces con 0 para nerdom, pero se me hace que cuántico le sumaba +8 cada vez que lo hacía... En fin, por lo menos ya dejaste de ser el máximo exponente del diseño web y programación :p
<HTML> <BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" VLINK="#000000"> <BR> <B>Juegos a descargar</B><BR><BR> <TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0> <TR BGCOLOR="#000000"> <TD><FONT COLOR="#FFFFFF"><B>Nombre del archivo:</B></FONT></TD> <TD><FONT COLOR="#FFFFFF"><B>Tamaño:</B></FONT></TD> <TD><FONT COLOR="#FFFFFF"><B>Tipo de archivo</B></FONT></TD> <TD><FONT COLOR="#FFFFFF"><B>Fecha de creación</B></FONT></TD> <% ' Crea una instancia del FileSystemObject Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") ' Crea el objeto folder Set MyFolder=MyFileObject.GetFolder(Server.MapPath("shared")) ' Hace un loop entre todos los archivos FOR EACH thing in MyFolder.Files %> <TR BGCOLOR="#F7F7E7"> <TD><A HREF="shared/<%=thing.Name%>"><%=thing.Name%></A></TD> <TD ALIGN=RIGHT><%=thing.Size%>bytes</TD> <TD><%=thing.Type%></TD> <TD><%=thing.DateCreated%></TD> <% NEXT %> </TABLE> </BODY> </HTML>
Mostrar Mensajes
