| |
|
| |
<%'Get Images
Dim myArray(99) 'Fixed Size array
FileCount = 0
Whichfolder=server.mappath("\") & FolderPath
Dim fs, f, f1, fc
Set fs = CreateObject("Scripting.FileSystemObject")
DirExists = fs.folderexists(WhichFolder)
FileCount = 0
If DirExists = "True" THEN
Set f = fs.GetFolder(Whichfolder)
Set fc = f.files
For Each f1 in fc
rLine = f1.name
'Response.Write(rLine + "
")
'Fill Image Array
myArray(FileCount) = rLine
FileCount = FileCount + 1
Next
Else
Response.Write("No images exist")
End if
%>
<% ArrCnt = 1
For Each item In myArray
If ArrCnt = 1 THEN %>
<% End if %>
<% If item <> "" THEN
RolloverPath = "http://www.paverlighting.com/Portfolio/image.asp?PicturePath=/Portfolio/" + Folder + "/" + item
RolloverSource = "/Portfolio/" + Folder + "/" + item
%>
<% 'Response.Write(RolloverSource)%>
 |
<% end if %>
<%
ArrCnt = ArrCnt + 1
If ArrCnt = 6 THEN %>
<% ArrCnt = 1
End If %>
<% Next
%>
View as Slideshow
Page may take a minute to load completely.
Place your cursor over the images to view larger .
|
|
|
| |
|
