|
Portfolio
Contact
- - - - - - - - - - - - -
<%
Dim thePhotoNumber
If Request("photoNumber") <> "" Then
thePhotoNumber = Request("photoNumber")
Else
thePhotoNumber = 1
End If
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim rootFolder
Set rootFolder = fso.GetFolder(Server.MapPath("Photos"))
Dim files
Set files = rootFolder.Files
Dim counter
counter = 1
For Each file in files
%>
<% If counter < 10 Then Response.Write "0" End If %> <%=counter%>
<% If counter mod 7 = 0 Then Response.Write "
" End If%>
<%
counter = counter + 1
Next
Set files = Nothing
Set subFolders = Nothing
Set rootFolder = Nothing
Set fso = Nothing
%>
|
