<%@ Language=VBScript %> <% Option Explicit %> <% Const ImageFilePath = "ChapmanSmall" 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 %> Brent Chapman photos
" method="post">

Brent Chapman Photo Album

All images copyrighted True Image Promotions and Brent Chapman

All photos are available at HD. Simply click on the Photo and Save.

 

<% 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" Then ' Original image file identification option: 'If objFile.Type = "GIF Image" Or objFile.Type = "JPEG Image" Then %> <% End If Next ' objFile Set objFolder = Nothing Set objFSO = Nothing %>
Image

">" />
<%=objFile.Name%>