LIBROS


 
<% dim referencias,Midirectorio,MiFSO_2,MiCarpeta,Archivos 'recoge la variable para procesarla referencias=request.querystring("ref") 'Midirectorio="/productos/libros" 'Set MiFSO = Server.CreateObject("Scripting.FileSystemObject") 'Set MiCarpeta = MiFSO.GetFolder(server.mappath(Midirectorio)) if (referencias="all") then 'para varias referencias Midirectorio="/productos/libros/" Set MiFSO_2 = Server.CreateObject("Scripting.FileSystemObject") set MiCarpeta = MiFSO_2.GetFolder(server.mappath(Midirectorio)) dim vari(60) cont=0 FOR EACH thing in MiCarpeta.Files set MiArchivo = MiFSO_2.OpenTextFile(thing, 1, False) contenido=MiArchivo.ReadAll cont=cont+1 vari(cont)=contenido 'Response.Write(contenido) NEXT for i = cont to 1 step -1 Response.Write(vari(i)) %>
<% next else 'para los que tienen una sola referencia Set MiFSO_2 = Server.CreateObject("Scripting.FileSystemObject") set MiArchivo = MiFSO_2.OpenTextFile(server.mappath("/productos/libros/"&(referencias)&".asp"), 1, False) contenido=MiArchivo.ReadAll response.write(contenido) end if Miarchivo.close Set MiFSO_2 = nothing Set MiArchivo= nothing %>
 

Libros - Imagen y Sonido - Fuegos - Cuberteros
Página Principal - Quienes Somos - Contactar - Buscar