<% sub ListFolderContents() dim fs, folder, file, item, url, path, i i=0 path = Server.MapPath("images/picsfree") set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'display the target folder's contents Response.Write("") end sub ListFolderContents() %>
<% Session("username")=Request.form("username") Session("password")=Request.form("password") If Session("username")="" OR Session("password")= "" Then %>
<< prev | next >>
Our client's privacy is important to us. If you would like to see more pictures of some of our customers, please visit our Contact Page and request a username and password.
User name and Password: User name:

Password:

<% Else If (Session("username")="guest" AND Session("password") = "pr0t3cti0n") then %>

The following pictures are only to demonstrate BodyGuardForHire Staff on the job and are not for dissemination or any other use unless given express written permission by BodyGuardForHire.com

<% Else If (Session("username")<>"" AND Session("username")<>"test" OR Session("password")<>"" AND Session("password")<>"1234") then %>
User name and Password: Invalid Login Attempt
User name:

Password:

<% End If End if End if %>