|
|
Scott's Custom Cycles Photo Galleries
Click Name of Gallery to Open |
>| |
<%
' First I deal with any subdirectories. I just display them and when you
' click you go to them via plain HTTP. You might want to loop them back
' through this file once you've set it up to take a path as input. It seems
' like the logical thing to do to me at least!
For Each objItem In objFolder.SubFolders
' Deal with the stupid VTI's that keep giving our visitors 404's
If InStr(1, objItem, " ", 1) Then
tmp = replace(objitem.name , " " , "_")
if objitem.name <> tmp then
objitem.name = tmp
end if
end if
If InStr(1, objItem, "_hidden_", 1) = 0 and InStr(1, objItem, "includes", 1) = 0 and InStr(1, objItem, "_vti", 1) = 0Then
%>
>
| <%= replace(objItem.Name, "_", " ") %> |
<%
End If
Next 'objItem
' All done! Kill off our object variables.
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
>| <% =linktext %> . | Created by greatasp.co.uk |
|
