<% '*********************************************************************** ' System : ASPBanner Unlimited ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' ' COPYRIGHT NOTICE ' ' See attached Software License Agreement ' ' (c) Copyright 2000 - 2003 by CJWSoft. All rights reserved '*********************************************************************** %> <% BannerDirectory = "http://" & Request.ServerVariables("HTTP_HOST") & Replace(Request.ServerVariables("URL"),"browsebannerwindow.asp","images/banners/") %>

Existing Files in <% =BannerDirectory %>

Click on the file name to select it.

<% Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") Set MyFiles=MyDirectory.GetFolder(Server.MapPath("images\banners")) For each filefound in MyFiles.files %> <% If InStr(LCase(filefound.Name),"gif") or InStr(LCase(filefound.Name),"bmp") or InStr(LCase(filefound.Name),"jpg") or InStr(LCase(filefound.Name),"jpeg") Then %> View    <% =filefound.Name %> <% End If %> <% Next %>