<%= Application("SiteName") %>

<%@ Language=VBScript %> <% Response.Buffer = True Response.Expires=0 %> /"> <%= Application("SiteName") %>

<% if isarray(artsArray) then sGallery = GetFolderContentToGalleri(artsArray(6,iLoop)) if len(sGallery)>0 then response.write sGallery end if end if %>