<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
For Each objFile In objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1))
If strFileExtension = "gif" Or strFileExtension = "jpg" Then
If (CLng(counter) >= CLng(StartPosition)) and (Clng(counter) < (CLng(StartPosition) + Clng(ImageLimit))) then
lImgCounter = lImgCounter + 1
%>
|
|
<%
If (lImgCounter Mod Imagerow) = 0 Then Response.Write " "
end if
counter = counter + 1
End If
Next
ThumbNextLink = CLng(StartPosition) + Clng(lImgCounter)
ThumbPreviousLink = CLng(StartPosition) - Clng(ImageLimit)
%>
 |
<% If (CLng(StartPosition) >= CLng(ImageLimit)) Then %>
|
<% End If %>
|
<% If (CLng(StartPosition)) < (CLng(counter) - (CLng(ImageLimit))) Then %>
|
<% End If %>
 |
|
 |
