<%@ LANGUAGE="VBSCRIPT" %>
Jamusi Decoración en escayola
<%
dim directorio, fichero, fso, columnas, elementos, indice, nombFich
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set directorio = fso.GetFolder(Server.MapPath("./pequenas"))
columnas = 3
elementos = 0
indice = 0
For Each fichero in directorio.Files
elementos = elementos + 1
if ((indice mod columnas) = 0) and (indice=0) then
%>
<%
elseif ((indice mod columnas)=0 and (indice > 0)) then
%>
<%
else
%>
<%
end if
indice = indice + 1
Next
' set archivos = nothing
set fichero = nothing
if (indice mod columnas) <> 0 then
%>
<%
end if
if(elementos = 0) then %>
No hay productos
<% end if %>
<%
'Set directorio = fso.GetFolder(Server.MapPath("./texto"))
For Each fichero in directorio.Files
nombFich = replace(fichero.Name,".jpg","")
%>
Ref.: <% = nombFich %>
<%
next
set fichero = nothing
set directorio = nothing
set fso = nothing
%>
