Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%
If request.cookies("Client")<>"Yes" then
Response.redirect "[URL unfurl="true"]http://www.your_domain.com/PicsPw2.htm"[/URL]
Else
Response.write " <h2> Click the links below to view the pics. </h2>"
Dim objFS, objFolder, strPhysPath, strScrNam, strThisFold, File, Folder
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
strPhysPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
strScrNam = Request.ServerVariables("SCRIPT_NAME")
strThisFold = strPhysPath & Left(strScrNam,InstrRev(strScrNam,"/")-1)
Set objFolder = objFS.GetFolder(strThisFold)
'For each Folder in objFolder.Subfolders ****commented out because there are no subfolders
' Response.Write(VbCrLf & "<a href='" & Folder.Name & "'><b>" & Folder.Name & "</b></a><br />")
'Next
Response.Write(VbCrLf & "<dl>")
For each File in objFolder.Files
Response.Write(VbCrLf & "<dd><a href='" &"PicsOct\" & File.Name & "'>" & File.Name & "</a></dd>")
Next
Response.Write(VbCrLf & "</dl>")
end if%>[code]