<% Function GetJPGs() GetJPGs = GetJPGsFolder(Server.MapPath("/img/g")) End Function Function GetJPGsFolder(carpeta) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(carpeta) Set fc = f.Files For Each f1 in fc If Instr(1,f1.name,"promocion")=0 Then s = s & f1.name s = s & "," End IF Next If len(s)>0 Then s = Mid (s,1,len(s)-1) 'para quitar la coma del final End IF GetJPGsFolder = s End Function %>