<% 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 %>