<% Response.Buffer = True %> Elmo & Montegrappa - Mediacenter
<% Dim objFSO, objFolder, objFolder2, objFolder_small, objFolder_medium, objFolder_originali, objFile Set objFSO = server.createobject("scripting.filesystemobject") 'percorso anteprime Set objFolder = objFSO.getfolder( strpath) 'percorso link Set objFolder2 = objFSO.getfolder(strpath2) 'percorso foto small Set objFolder_small = objFSO.getfolder(strpath_small) 'percorso foto medium Set objFolder_medium = objFSO.getfolder(strpath_medium) 'percorso foto medium Set objFolder_originali = objFSO.getfolder(strpath_originali) fileMAX = 1000 'percorso anteprime intTotalFiles = objFolder.Files.Count 'percorso link intTotalFiles2 = objFolder2.Files.Count 'percorso foto small intTotalFiles_small = objFolder_small.Files.Count 'percorso foto medium intTotalFiles_medium = objFolder_medium.Files.Count 'percorso foto originali intTotalFiles_originali = objFolder_originali.Files.Count 'percorso anteprime If objFolder.Files.Count MOD fileMAX = 0 Then intTotalPages = Int(objFolder.Files.Count/fileMAX) Else intTotalPages = Int(objFolder.Files.Count/fileMAX)+1 End If 'percorso link If objFolder2.Files.Count MOD fileMAX = 0 Then intTotalPages2 = Int(objFolder2.Files.Count/fileMAX) Else intTotalPages2 = Int(objFolder2.Files.Count/fileMAX)+1 End If 'percorso foto small If objFolder_small.Files.Count MOD fileMAX = 0 Then intTotalPages_small = Int(objFolder_small.Files.Count/fileMAX) Else intTotalPages_small = Int(objFolder_small.Files.Count/fileMAX)+1 End If 'percorso foto medium If objFolder_medium.Files.Count MOD fileMAX = 0 Then intTotalPages_medium = Int(objFolder_medium.Files.Count/fileMAX) Else intTotalPages_medium = Int(objFolder_medium.Files.Count/fileMAX)+1 End If 'percorso foto originali If objFolder_originali.Files.Count MOD fileMAX = 0 Then intTotalPages_originali = Int(objFolder_originali.Files.Count/fileMAX) Else intTotalPages_originali = Int(objFolder_originali.Files.Count/fileMAX)+1 End If %> <% If intTotalFiles > 0 Then col = 0 imagecounter = 1 If Request.QueryString("page").Count > 0 Then intPageNum = CInt(Request.QueryString("page")) Else intPageNum = 1 End If For Each objFile in objFolder.Files If (imagecounter >= (intPageNum*fileMAX)-(fileMAX-1)) And (imagecounter <= (intPageNum*fileMAX)) Then col = col + 1 If col = 1 Then Response.Write "" & vbcrlf he = ImageHeight(StrPathShort & objfile.name) wi = ImageWidth(StrPathShort & objfile.name) resized = ImageResize(StrPathShort & objfile.name, 150, 150, "center") Response.Write "" & vbcrlf If col = 5 Then Response.Write "" & vbcrlf col = 0 End If End If imagecounter = imagecounter + 1 Next If col > 0 AND col < 5 Then For colonne = col+1 To 5 Response.Write "" & vbcrlf Next Response.Write "" & vbcrlf End If Else %> <% End If %>
" & vbcrlf & "
" & resized & "
" 'percorso foto small Dim objFile2 Set objFile2 = Server.CreateObject ("Scripting.FileSystemObject") If objFile2.FileExists (Server.MapPath(StrPathShort_small & Left(objFile.Name, InStrRev(objFile.Name, ".") - 1) & "_S.zip")) Then Response.Write "" Else Response.Write "" End If Set objFile2 = Nothing 'percorso foto medium Dim objFile3 Set objFile3 = Server.CreateObject ("Scripting.FileSystemObject") If objFile3.FileExists (Server.MapPath(StrPathShort_medium & Left(objFile.Name, InStrRev(objFile.Name, ".") - 1) & "_M.zip")) Then Response.Write "" Else Response.Write "" End If Set objFile3 = Nothing 'percorso foto originali Dim objFile4 Set objFile4 = Server.CreateObject ("Scripting.FileSystemObject") If objFile4.FileExists (Server.MapPath(StrPathShort_originali & Left(objFile.Name, InStrRev(objFile.Name, ".") - 1) & "_O.zip")) Then Response.Write "" Else Response.Write "" End If Set objFile4 = Nothing Response.Write "
Small version
Large version
Original version

" & vbcrlf & "
 
Non ci sono immagini
<% set objfolder = Nothing set objfso = nothing %>