<%@ Language=VBScript %> <% Option Explicit %> <% Const ImageFilePath = "." Const DeleteButtonLabel = "Delete Selected Images" Dim objFSO Dim objFolder Dim objFile Dim strFileName Dim strFileExtension Dim blnShowImages If Request.QueryString("ShowImages") = "" Then blnShowImages = False Else blnShowImages = CBool(Request.QueryString("ShowImages")) End If 'If Request.Form("btnDelete") = DeleteButtonLabel Then ' Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' ' For Each strFileName In Request.Form("delete") ' objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & strFileName)) ' Next ' strFileName ' ' Set objFSO = Nothing 'End If %>

" method="post"> <% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath)) For Each objFile In objFolder.Files strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Or strFileExtension = "mov" Then ' Original image file identification option: 'If objFile.Type = "GIF Image" Or objFile.Type = "JPEG Image" Then %> <% If blnShowImages Then %> <% Else %> <% End If %> <% End If Next ' objFile Set objFolder = Nothing Set objFSO = Nothing %>

Image Name	Image ?ShowImages=<%= Not blnShowImages %>">(Toggle Display)
"><%= objFile.Name %>	" />	">View Image