<%@ Language = "VBSCRIPT" %>
<% OPTION EXPLICIT
Response.Expires = 0
'if 0 means that you dont have to keep refreshing
Server.Scripttimeout = 10
'how many times the file has to be reached
Response.Buffer = true
%>
<%
Dim strProjectTitle
Dim strProjectURL
Dim strProjectInformation
Dim strProjectImages
Dim strImageID
Dim strFirst
Dim strLast
Dim strNext
Dim strPrev
strImageID = 1
strImageID = Request.QueryString("ID")
strProjectTitle = Session("strProjectTitle")
strProjectURL = Session("strProjectURL")
strProjectInformation = Session("ProjectInformation")
strProjectImages = Session("imageText")
If IsNull(strImageID) OR Not IsNumeric(strImageID) OR Trim( strImageID ) = "" Then
strImageID = 1
End If
Dim strPath 'Path of directory to show
Dim objFSO 'FileSystemObject variable
Dim objFolder 'Folder variable
Dim objItem 'Variable used to loop through the contents of the folder
Dim totalCounter
Dim comparisonCounter
totalCounter = 0
comparisonCounter = 0
strPath = "screenshots/"
' Create our FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a handle on our folder
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
For Each objItem In objFolder.Files
If LEFT(strProjectImages, 4) = strProjectImages Then
totalCounter = totalCounter + 1
End If
Next
comparisonCounter = totalCounter
strFirst = "screenshots.php"
If totalCounter < 1 Then
strLast = "screenshots.php"
Else
strLast = "screenshots.php" & "?ID=" & totalCounter
End If
If strImageID > 0 AND comparisonCounter > 0 Then
If strImageID = comparisonCounter Then
strNext = "screenshots.php" & "?ID=" & strImageID
Else
strNext = "screenshots.php" & "?ID=" & strImageID + 1
End If
Else
strNext = "screenshots.php"
End If
If strImageID > 1 Then
strPrev = "screenshots.php" & "?ID=" & strImageID - 1
Else
strPrev = "screenshots.php"
End If
%>
Metis Development - Screenshots <%=strProjectTitle%>
