.:: <%= GalleryVersion %> - Ana Klasör ::.

<%@ LANGUAGE="VBSCRIPT" %> <% '#################################### '## Application: Blue-Collar Productions '## File Name: igallery.asp (default.asp) '## File Version: i-Gallery '## Notice: This code has limited warranties. Please see http://www.b-cp.com for details. '#################################### %> <% Sub DisplayFileName(fn) strFolderName = ""&fn.Name&"" strFolderLocation = UploadPath&"\"&strFolderName&"/" Set F1 = FSO.GetFolder(strFolderLocation) Set FC = F1.Files On Error Resume Next rpf = 4 rpr = 2 intPage = 0 i = 1 RecordsCount = 0 %>

<% For Each f1 in FC If (RecordsCount >= (intPage * rpf)) And (RecordsCount < (intPage * rpf) + rpf) Then If NOT InStr(f1, "tn-") > 0 Then ' Hide NON-Thumnails In View ThumbPath = UploadPath&"\"&strFolderName&"\"&f1.Name '##### Thumbnailer Call ###### If gfxSpex(ThumbPath, width, height, colors, strType) = true then strwidth = "37" strheight = FormatNumber(strwidth*(height/width),0) If strheight > 33 Then strheight = "33" Else strheight = strheight If nailer Then strURL = URLPath&"/"&strfoldername&"/tn-"&f1.Name Else strURL = URLPath&"/"&strfoldername&"/"&f1.Name End If strimagesrc = "" End If '##### End Thumbnailer Call ###### If Not i Mod rpr = 0 Then %> <% Else %> <% End if End If RecordsCount = RecordsCount + 1 i = i + 1 End If Set Jpeg = Nothing Next %>

<%= strimagesrc %>

<%= fn.name %>

<% End Sub %> .:: <%= GalleryVersion %> - Ana Klasör ::.

<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %> <% Else %> <% End If %>

<%= FormatDateTime(igalleryNow,1) %>

&n=<%= Request.ServerVariables("SCRIPT_NAME") %>" onMouseOver="document.sbtnon.src='images/sm-logon2.gif'" onMouseOut="document.sbtnon.src='images/sm-logon1.gif'">

<% Set f = FSO.GetFolder(UploadPath) Set FileList = f.subFolders Set objFC = f.Files On Error Resume Next fi = 1 count = 0 fpr = foldersperrow For Each fn In FileList emptyDir = False If Not fi Mod fpr = 0 then %> <% Else %> <% End If fi = fi + 1 Next %>

<% DisplayFileName(fn) %>

<% emptyDir = True For Each fn In FileList emptyDir = False Next If emptyDir Then %>

<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %> Mevcut Klasör Bulunmamaktadir
<% Else %> Mevcut Klasör Bulunmamaktadir.Klasör yaratmak için buraya tiklayiniz.
<% End If %> <% End If %> <% set FSO = nothing %> <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>

Yeni Klasör Oluştur:

<% End If %>