FUEGOS


 
<% dim referencias,Midirectorio,MiFSO_2,MiCarpeta,Archivos 'recoge la variable para procesarla referencias=request.querystring("ref") 'Midirectorio="/productos/fueg" 'Set MiFSO = Server.CreateObject("Scripting.FileSystemObject") 'Set MiCarpeta = MiFSO.GetFolder(server.mappath(Midirectorio)) if (referencias="all") then 'para varias referencias Midirectorio="/productos/fueg/" Set MiFSO_2 = Server.CreateObject("Scripting.FileSystemObject") set MiCarpeta = MiFSO_2.GetFolder(server.mappath(Midirectorio)) FOR EACH thing in MiCarpeta.Files set MiArchivo = MiFSO_2.OpenTextFile(thing, 1, False) contenido=MiArchivo.ReadAll Response.Write(contenido) %>
<% NEXT else 'para los que tienen una sola referencia Set MiFSO_2 = Server.CreateObject("Scripting.FileSystemObject") set MiArchivo = MiFSO_2.OpenTextFile(server.mappath("/productos/fueg/"&(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