<%
dim referencias,Midirectorio,MiFSO_2,MiCarpeta,Archivos
'recoge la variable para procesarla
referencias=request.querystring("ref")
'Midirectorio="/productos/cubert"
'Set MiFSO = Server.CreateObject("Scripting.FileSystemObject")
'Set MiCarpeta = MiFSO.GetFolder(server.mappath(Midirectorio))
if (referencias="all") then
'para varias referencias
Midirectorio="/productos/cubert/"
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/cubert/"&(referencias)&".asp"), 1, False)
contenido=MiArchivo.ReadAll
response.write(contenido)
end if
Miarchivo.close
Set MiFSO_2 = nothing
Set MiArchivo= nothing
%>
*medidas en centímetros
|