<%@ Language=VBScript %>
<%Option Explicit%>
<%
dim photo, phototoshow, fso, arrPhotoName, arrThumbs, arrBigs
Dim rfso, rpath, rfile, counter, i,j
'Dim arrPaths(2) = (ProdBigPhotosDir, ProdPhotosDir, ProdThumbsDir)
photo = Request.QueryString("photo")
arrPhotoName = Split(photo,"_")
Set rfso = Server.CreateObject("Scripting.FileSystemObject")
rpath = Server.Mappath(ProdThumbsDir)
counter = rfso.GetFolder(rpath).files.count
redim arrThumbs(0)
for each rfile in rfso.GetFolder(rpath).files
'Elegxos gia na mhn thewrei kai to Thumbs.db fwtografia--------------
If (UCase(rfile.name) & "" <> UCase("Thumbs.db")) And (Instr(rFile.name,arrPhotoName(0))>0) Then
If rfso.FileExists(Server.MapPath(ProdBigPhotosDir & "\" & rfile.Name)) Then
Redim Preserve arrThumbs(i)
arrThumbs(i) = rfile.name
i = i + 1
End If
End If
next
Set rfso = Nothing
%>
<%=PageTitle%>
Aλλες φωτογραφίες
Πατήστε για να δείτε τις μεγεθύνσεις.
<% If UBound(arrThumbs)>-1 Then
For j=0 To UBound(arrThumbs)
%>