<%@ LANGUAGE="VBSCRIPT" %>

<%
'####################################
'## Application:   Blue-Collar Productions
'## File Name:     igallery.asp
'## File Version:  i-Gallery
'## Copyright:     This code is copyrighted. Please see http://www.b-cp.com for details.
'## Notice:        This code has limited warranties. Please see http://www.b-cp.com for details.
'####################################
%>

<%
Response.Buffer = "true"
'########## System Settings Do Not Edit Below This Line... REALLY ##########
%>

<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200
%>

<!--#include file = "connection.asp"-->

<%
Dim SysConn,SysRec,GalleryName,UploadPath,URLPath,NailerApp,DllPath,DateFormat,RecordsPerRow,RecordsPerPage,FoldersPerRow,MaxUploadSize,MailServer,MailAddress,EmailApp,Anonymous,MessageBoard,AllowedFiles,TitleMax,History,Vote,ToolBar,DescMax,Description,SlideShow,DelaySpeed,Transition,StartColor1,EndColor1,StartColor2,EndColor2,TitleColor,DateColor,FullScreen,ViewerBG
Set SysConn 	= Server.CreateObject ("ADODB.Connection")
SysConn.Open strConnect
Set sysRec 		= SysConn.Execute ("SELECT * FROM System;")
GalleryName 	= SysRec("GalleryName")
UploadPath 		= SysRec("UploadPath")
URLPath 		= SysRec("URLPath")
NailerApp 		= SysRec("NailerApp")
DllPath 		= SysRec("DllPath")
DateFormat 		= SysRec("DateFormat")
RecordsPerRow	= sysRec("RecordsPerRow")
RecordsPerPage	= sysRec("RecordsPerPage")
FoldersPerRow	= sysRec("FoldersPerRow")
MaxUploadSize   = SysRec("MaxUpload")
MailServer 		= SysRec("EmailServer")
MailAddress		= SysRec("EmailAddress")
EmailApp		= SysRec("EmailApp")
Anonymous		= SysRec("Anonymous")
MessageBoard	= SysRec("MessageBoard")
AllowedFiles	= SysRec("AllowedFiles")
TitleMax		= SysRec("TitleMax")
History			= SysRec("History")
Vote			= SysRec("Vote")
ToolBar			= SysRec("ToolBar")
DescMax			= SysRec("DescMax")
Description	    = SysRec("Description")
SlideShow		= SysRec("SlideShow")
DelaySpeed		= SysRec("DelaySpeed")
Transition	    = SysRec("Transition")
StartColor1 	= SysRec("StartColor1")
EndColor1  		= SysRec("EndColor1")
DateColor 		= SysRec("DateColor")
StartColor2 	= SysRec("StartColor2")
EndColor2  		= SysRec("EndColor2")
TitleColor 		= SysRec("TitleColor")
FullScreen		= SysRec("FullScreen")
ViewerBG		= SysRec("ViewerBG")

On Error Resume Next

Dim SecurityTimeout
SecurityTimeout = 10 'Amount of time idle before security session expires (MIN = 3)

'########## Do Not Edit Below This Line... REALLY ##########

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim f
Set f = FSO.GetFolder(UploadPath)

Dim fsDir
Set fsDir = FSO.GetFolder(UploadPath)

Dim FileList
Set FileList = f.subFolders

Dim GalleryVersion
GalleryVersion = "i-Gallery 4.1 - "

Dim sAgent, b_IE, b_NN6
Dim ie, nn6
b_IE  = false
b_NN6 = false
sAgent = Request.ServerVariables("HTTP_USER_AGENT")
if (inStr(sAgent,"MSIE")>0) then
b_IE = true
end if
if (inStr(sAgent,"Gecko")>0) then
b_NN6 = true
end if
ie = b_IE
nn6 = b_NN6

Function URLSpace(s)
URLspace = s
URLSpace = Replace(URLSpace," ","+")
URLSpace = Replace(URLSpace,"&","%26")
End Function 'URLSpace

Function rURLSpace(s)
rURLspace = s
rURLSpace = Replace(rURLSpace,"+"," ")
rURLSpace = Replace(rURLSpace,"%26","&")
End Function 'URLSpace

Function fExt(fname)
filename = fname
DotPosition = InStrRev(filename, ".")
fExt = Mid(filename,DotPosition + 1)
fExt = LCase(fExt)
End Function 'File Extension

Dim igalleryNow
igalleryNow = Now

Function EuroDate(MyDate) 
EuroDate = Day(MyDate) & "/" & Month(MyDate) & "/" & mid(Year(MyDate),3,2) 
End Function

Function USDate(MyDate) 
USDate = Month(MyDate) & "/" & Day(MyDate) & "/" & mid(Year(MyDate),3,2) 
End Function

Dim OutMinusTwo
Session.Timeout = SecurityTimeout
OutMinusTwo = (SecurityTimeout-2)*60000

Dim Nailer
If NailerApp="1" OR NailerApp="2" OR NailerApp="3" Then 
Nailer = True
ElseIf NailerApp="4" OR NailerApp="" Then
Nailer = False
NailerApp = 4
End If
%>

<%
'OPTION EXPLICIT
const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
dim Base64EncMap(63)
dim Base64DecMap(127)

' must be called before using anything else
PUBLIC SUB initCodecs()
' init vars
'nl = "<P>" & chr(13) & chr(10)
' setup base 64
dim max, idx
max = len(BASE_64_MAP_INIT)
for idx = 0 to max - 1
' one based string
Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1)
next
for idx = 0 to max - 1
Base64DecMap(ASC(Base64EncMap(idx))) = idx
next
END SUB

' encode base 64 encoded string
PUBLIC FUNCTION Encode(plain)

if len(plain) = 0 then
Encode = ""
exit function
end if

dim ret, ndx, by3, first, second, third
by3 = (len(plain) \ 3) * 3
ndx = 1
do while ndx <= by3
first  = asc(mid(plain, ndx+0, 1))
second = asc(mid(plain, ndx+1, 1))
third  = asc(mid(plain, ndx+2, 1))
ret = ret & Base64EncMap(  (first \ 4) AND 63 )
ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) )
ret = ret & Base64EncMap( ((second * 4) AND 60) + ((third \ 64) AND 3 ) )
ret = ret & Base64EncMap( third AND 63)
ndx = ndx + 3
loop
' check for stragglers
if by3 < len(plain) then
first  = asc(mid(plain, ndx+0, 1))
ret = ret & Base64EncMap(  (first \ 4) AND 63 )
if (len(plain) MOD 3 ) = 2 then
second = asc(mid(plain, ndx+1, 1))
ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) )
ret = ret & Base64EncMap( ((second * 4) AND 60) )
else
ret = ret & Base64EncMap( (first * 16) AND 48)
ret = ret & "="
end if
ret = ret & "="
end if

Encode = ret
END FUNCTION

' decode base 64 encoded string
PUBLIC FUNCTION Decode(scrambled)

if len(scrambled) = 0 then
Decode = ""
exit function
end if

' ignore padding
dim realLen
realLen = len(scrambled)
do while mid(scrambled, realLen, 1) = "="
realLen = realLen - 1
loop
dim ret, ndx, by4, first, second, third, fourth
ret = ""
by4 = (realLen \ 4) * 4
ndx = 1
do while ndx <= by4
first  = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
third  = Base64DecMap(asc(mid(scrambled, ndx+2, 1)))
fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))
ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3))
ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15) )
ret = ret & chr( ((third * 64) AND 255) +  (fourth AND 63) )
ndx = ndx + 4
loop
' check for stragglers, will be 2 or 3 characters
if ndx < realLen then
first  = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
ret = ret & chr( ((first * 4) AND 255) +   ((second \ 16) AND 3))
if realLen MOD 4 = 3 then
third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))
ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15) )
end if
end if

Decode = ret
END FUNCTION

' initialize
call initCodecs

' Testing code
'dim inp, strencode
'inp = request.form("test")
'strencode = Encode(inp)
'response.write "Encoded value = " & strencode
'response.write "Decoded value = " & Decode(strencode)
%>

<%
function CropIt(chkString,sNum)
if IsNull(chKString) = False And chkString > sNum Then
strTot = Len(chkString)
While Right(chkString, 1) = " "
chkString = Left(chkString, strTot - 1)
strTot = Len(chkString)
Wend
chkString = Left(chkString, sNum)
if Right(chkString, 1) = " " Then
chkString = Left(chkString, sNum - 1)
End if
if Len(chkString) <> strTot Then chkString = chkString & "..."
CropIt = chkString
End if
End function
%>
<%
Function SendMail(comp, mailserv, fromname, fromemail, toname, toemail, subject, body)

Dim myMail
On Error Resume Next	

Select Case comp

Case 1 'ASPMail
Set myMail 			= Server.CreateObject("SMTPsvg.Mailer")

myMail.FromName   	= fromname
myMail.FromAddress	= fromemail
myMail.ContentType  = strcontent
myMail.Priority 	= strpriority
myMail.ReturnReceipt= strreceipt
myMail.RemoteHost 	= mailserv
myMail.AddRecipient toname, toemail
myMail.Subject    	= subject
myMail.BodyText   	= body
myMail.SendMail

Case 2  'ASPEmail
Set myMail 		= CreateObject("Persits.MailSender") 
myMail.From 	= fromemail
myMail.FromName = fromname
myMail.IsHTML 	= strcontent
myMail.Priority = strpriority
myMail.Host 	= mailserv
myMail.AddAddress toemail
myMail.Subject 	= subject
myMail.Body 	= body
myMail.Send 

Case 3  'CDONTS
Set myMail 			= server.CreateObject("CDONTS.NewMail")
myMail.To 			= toemail
myMail.Value("Reply-To") = fromemail
myMail.From 		= fromemail
myMail.Subject 		= subject
myMail.MailFormat 	= strcontent
myMail.BodyFormat 	= strcontent
myMail.Importance 	= strpriority
myMail.Body = body
myMail.Send

Case 10  'CDOSYS
Set myMail = Server.CreateObject("CDO.Message")
myMail.From = fromemail
myMail.To = toemail
myMail.Subject = subject 
myMail.HTMLBody = body
myMail.Send 

Case 4 ' Dynu Email
Set myMail 		= Server.CreateObject("Dynu.Email")
myMail.isHTML 	= True
myMail.Smtp 	= mailserv
result 			= myMail.Send(fromemail, toemail, subject, body)

Case 5 'W3 JMail 4.1
set myMail 		= Server.CreateOBject( "JMail.Message" )
myMail.Logging 	= true
myMail.silent 	= true
myMail.From 	= fromemail
myMail.FromName = fromname
myMail.AddRecipient toemail, toname
myMail.Subject 	= subject
myMail.Body 	= body
SendMail = myMail.Send(mailserv)

Case 6 'W3 JMail 4.1 HTML
Set myMail 		= Server.CreateObject("JMail.Message")
myMail.AddRecipient toemail, toname
myMail.From 	= fromemail
myMail.Body 	= "Sorry, you cannot read HTML."
myMail.Subject 	= subject
myMail.HTMLBody = body
SendMail = myMail.Send(mailserv)

Case 7 'Simple Mail
Set myMail 			= Server.CreateObject("ADISCON.SimpleMail.1")
myMail.MailServer 	= mailserv
myMail.Sender 		= fromemail
myMail.Recipient 	= toemail
myMail.Subject 		= subject
myMail.MessageText 	= body
call myMail.Send

Case 8 'OCXMail
set myMail 		= Server.CreateObject("ASPMail.ASPMailCtrl.1")
result 			=  myMail.SendMail(mailserv, toemail, fromemail, subject, body) 

Case 9  'VSMail 1.x
Set myMail 		= CreateObject("VSEmail.SMTPSendMail")
myMail.Host 	= mailserv
myMail.From 	=  fromname & " < " & fromemail & " >"
myMail.SendTo 	= toemail
myMail.Subject 	= subject
myMail.Body 	= body
myMail.Connect
myMail.Send

End Select

Set myMail = Nothing

If Err Then
SendMail = False
Else
SendMail = True
End If	

End Function
%>


<%
function GetBytes(flnm, offset, bytes)
Dim objFSO
Dim objFTemp
Dim objTextStream
Dim lngSize
on error resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFTemp = objFSO.GetFile(flnm)
lngSize = objFTemp.Size
set objFTemp = nothing
fsoForReading = 1
Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)
if offset > 0 then
strBuff = objTextStream.Read(offset - 1)
end if
if bytes = -1 then
GetBytes = objTextStream.Read(lngSize)
else
GetBytes = objTextStream.Read(bytes)
end if
objTextStream.Close
set objTextStream = nothing
set objFSO = nothing
end function
function lngConvert(strTemp)
lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))
end function
function lngConvert2(strTemp)
lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))
end function
function gfxSpex(flnm, width, height, depth, strImageType)
dim strPNG 
dim strGIF
dim strBMP
dim strType
strType = ""
strImageType = "(Unknown)"
gfxSpex = False
strPNG = chr(137) & chr(80) & chr(78)
strGIF = "GIF"
strBMP = chr(66) & chr(77)
strType = GetBytes(flnm, 0, 3)
if strType = strGIF then				' is GIF
strImageType = "GIF"
Width = lngConvert(GetBytes(flnm, 7, 2))
Height = lngConvert(GetBytes(flnm, 9, 2))
Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
gfxSpex = True
elseif left(strType, 2) = strBMP then		' is BMP
strImageType = "BMP"
Width = lngConvert(GetBytes(flnm, 19, 2))
Height = lngConvert(GetBytes(flnm, 23, 2))
Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))
gfxSpex = True
elseif strType = strPNG then			' Is PNG
strImageType = "PNG"
Width = lngConvert2(GetBytes(flnm, 19, 2))
Height = lngConvert2(GetBytes(flnm, 23, 2))
Depth = getBytes(flnm, 25, 2)
select case asc(right(Depth,1))
case 0
Depth = 2 ^ (asc(left(Depth, 1)))
gfxSpex = True
case 2
Depth = 2 ^ (asc(left(Depth, 1)) * 3)
gfxSpex = True
case 3
Depth = 2 ^ (asc(left(Depth, 1)))  '8
gfxSpex = True
case 4
Depth = 2 ^ (asc(left(Depth, 1)) * 2)
gfxSpex = True
case 6
Depth = 2 ^ (asc(left(Depth, 1)) * 4)
gfxSpex = True
case else
Depth = -1
end select
else
strBuff = GetBytes(flnm, 0, -1)
lngSize = len(strBuff)
flgFound = 0
strTarget = chr(255) & chr(216) & chr(255)
flgFound = instr(strBuff, strTarget)
if flgFound = 0 then
exit function
end if
strImageType = "JPG"
lngPos = flgFound + 2
ExitLoop = false
do while ExitLoop = False and lngPos < lngSize
do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
lngPos = lngPos + 1
loop
if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
lngPos = lngPos + lngMarkerSize  + 1
else
ExitLoop = True
end if
loop
if ExitLoop = False then
Width = -1
Height = -1
Depth = -1
else
Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
gfxSpex = True
end if
end if
end function
%>
<%
Function FileSize(intFileSize)
const DecimalPlaces = 1
const FileSizeBytes = 1
const FileSizeKiloByte = 1024
const FileSizeMegaByte = 1048576
const FileSizeGigaByte = 1073741824
const FileSizeTeraByte = 1099511627776
Dim strFileSize, newFilesize
If (Int(intFileSize / FileSizeTeraByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeTeraByte, DecimalPlaces)
strFileSize = newFilesize & " TB"
ElseIf (Int(intFileSize / FileSizeGigaByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeGigaByte, DecimalPlaces)
strFileSize = newFilesize & " GB"
ElseIf (Int(intFileSize / FileSizeMegaByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeMegaByte, DecimalPlaces)
strFileSize = newFilesize & " MB"
ElseIf (Int(intFileSize / FileSizeKiloByte) <> 0) Then
newFilesize = Round(intFileSize / FileSizeKiloByte, DecimalPlaces)
strFileSize = newFilesize & " KB"
ElseIf (Int(intFileSize / FileSizeBytes) <> 0) Then
newFilesize = intFilesize
strFileSize = newFilesize & " Bytes"
ElseIf Int(intFileSize) = 0 Then
strFilesize = 0 & " Bytes"
End If
FileSize = strFileSize
End Function
%>
<%
'####################################
'## Application:   Blue-Collar Productions
'## File Name:     lang_global.inc (Language File)
'## File Version:  i-Gallery
'## Notice:        This code has limited warranties. Please see http://www.b-cp.com for details.
'####################################
%>

<%
'## Global Settings ##

'## editimage.asp, logs.asp, system.asp, upload.asp & users.asp
CONST IG_timeout 	= "Your login session will timeout in 2 minutes. To continue your current session, please navigate to a new page."

'## header.asp
CONST IGhead_homep 	= "i-Gallery Home Page"
CONST IGhead_lgoff 	= "Log Off"
CONST IGhead_lgon 	= "Log On"

'## menu.asp
CONST IGmenu_spo 	= "Submit Photo(s) Online"
CONST IGmenu_subfrm = "Submission Form"
CONST IGmenu_ua 	= "User Administration"
CONST IGmenu_anu 	= "Add New User"
CONST IGmenu_mu 	= "Manage User(s)"
CONST IGmenu_ulf 	= "User(s) Log Files"
CONST IGmenu_smngt 	= "System Management"
CONST IGmenu_smaint = "System Maintenance"
CONST IGmenu_candr  = "Compact & Repair Database"
CONST IGmenu_mb  	= "MESSAGE BOARD"

'## searchform.asp
CONST IGsform_sg 	= "Search Gallery"
CONST IGsform_but 	= "GO"
CONST IGsform_xm 	= "Exact Match"

'## footer.asp
CONST IGfoot_his1 	= "Within 7 Days"
CONST IGfoot_his2 	= "14 Days"
CONST IGfoot_his3 	= "21 Days"
CONST IGfoot_pb 	= "Powered By"
%>


<%
'####################################
'## Application:   Blue-Collar Productions
'## File Name:     lang_igallery.inc (Language File)
'## File Version:  i-Gallery
'## Notice:        This code has limited warranties. Please see http://www.b-cp.com for details.
'####################################
%>

<%
'## igallery.asp
CONST IG_uol 			= "Up One level"
CONST IG_pg1 			= "Displaying Page"
CONST IG_pg2 			= "of"
CONST IG_erfm1 			= "Use the ""Create New Folder"" form below to add your first sub-directory to your main i-Gallery folder."
CONST IG_erfm2 			= "There are currently no folders within your main folder.&nbsp; To create a new directory you must first log-in to the system administration section.&nbsp; <a class=""link"" href=""login.asp"">Click Here</a> to log-in now."
CONST IG_ded 			= "DO YOU WANT TO DELETE THIS EMPTY FOLDER"
CONST IG_ri 			= "Repair Broken Thumbnails In This Folder"
CONST IG_si 			= "Sync All Images In This Folder To Database"
CONST IG_cnd1 			= "Create New Directory"
CONST IG_cnd2 			= "Create New Sub-Directory"
CONST IG_rnd1 			= "Re-Name This Directory"
CONST IG_edm 			= "There are currently no images to view within this directory."
CONST IG_upttf1 		= "Upload Pictures To This Folder"
CONST IG_upttf2 		= "Main Folder"
CONST IG_but1 			= "Create"
CONST IG_but2 			= "Re-Name"

'## toolbar.asp
CONST IGt_editimage 	= "Edit Image"
CONST IGt_viewimage 	= "View Image"
CONST IGt_rotateimagel 	= "Rotate Image 90&ordm; Left"
CONST IGt_centerimage 	= "Center Image"
CONST IGt_rotateimager 	= "Rotate Image 90&ordm; Right"
CONST IGt_dwnimage 		= "Download Image"

'## igallery.inc
CONST IGi_add 			= "Added"
CONST IGi_ht 			= "Height"
CONST IGi_wd 			= "Width"
CONST IGi_un 			= "Unknown"
CONST IGi_mod 			= "Mod."
CONST IGi_sz 			= "Size"
CONST IGi_adjprop 		= "Edit Properties"
CONST IGi_view 			= "Click Here To View"
CONST IGi_vote 			= "Click Here To Vote"
CONST IGi_tv 			= "Total Vote(s)"
CONST IGi_views 		= "Views"
CONST IGi_dwnaudio 		= "Download Audio File"
CONST IGi_editaudio 	= "Edit Audio File"
CONST IGi_dwnvideo 		= "Download Video File"
CONST IGi_editvideo 	= "Edit Video File"
CONST IGi_dwnld 		= "Download"
CONST IGi_dwnlds 		= "Downloads"
CONST IGi_f 			= "File"
CONST IGi_desc 			= "Description"
CONST IGi_unkn 			= "Unknown"
CONST IGi_delunkn 		= "Delete Unknown File"
%>


<%
Set objF   = fsdir
Set objFC  = objF.Files
intPage = Request.Querystring("page")
If intPage <> "" Then intPage = intPage else intPage = 0
i = 1
Dim RecordsCount
RecordsCount = 0 ' set count to zero
Dim rowcount
rowcount = 1 ' set count to zero
%>

<%
'################# SUB DisplayGallery Folder & Object Set-Up #################
Sub DisplayGallery(dirfile,f1)

'##### Begin Display Folders ######
If dirFile = "DISPLAYFOLDERS" Then

strFolderName 	= f1.Name
strBaseDir 		= BaseDir
If strBaseDir <> "" Then strBaseDir = strBaseDir Else strBaseDir = ""
%>

<table width="120" cellspacing="1" cellpadding="2" border="0">
<tr>
<td align="center" nowrap>
<table background="images/largefolder.gif" width="92" height="92" cellspacing="0" cellpadding="0" border="0">
<tr>
<td valign="middle" align="center">

<img src="images/spacer.gif" width="1" height="5" border="0"><br>
<table cellspacing="1" cellpadding="2" border="0">
<tr>
<%
Set tlist = f1.Files

tpf 	= 4
tpr 	= 2
tPage 	= 0
t 		= 1
tcount 	= 0

For Each thumbnail in tlist

If (tcount >= (tPage * tpf)) And (tcount < (tPage * tpf) + tpf) Then

If NOT InStr(thumbnail, "tn-") > 0 Then ' Hide NON-Thumnails In View

ThumbPath 		= UploadPath &"\"& Replace(strBaseDir,"/","\") &"\"& strFolderName &"\" & thumbnail.Name

FileExt = fExt(thumbnail.Name)
Select Case FileExt
Case "jpg", "jpeg", "gif", "bmp", "png"

'##### Folder Icon ######
If gfxSpex(ThumbPath, width, height, colors, strType) = True Then
strwidth  = "37"
strheight = FormatNumber(strwidth*(height/width),0)
If strheight > 33 Then 
strheight = "33"
strwidth  = FormatNumber(strheight*(width/height),0)
Else
strheight = strheight
End If
Else
strwidth  = 37
strheight = 33
End If

If nailer Then
strURL = URLpath&"/"& strBaseDir &"/"& strFolderName&"/tn-"&thumbnail.Name
Else
strURL = URLpath&"/"& strBaseDir &"/"& strFolderName&"/"&thumbnail.Name
End If
'##### End Folder Icon ######

strimagesrc = "<img src="""&strURL&""" width="""&strwidth&""" height="""&strheight&""" border=""0"">"
Case "mid", "midi", "au", "aif", "aiff", "snd", "wav", "mp3", "mpga"
strimagesrc = "<img src=""images/sm-audio1.gif"" width=""30"" height=""30"" border=""0"">"
Case "avi", "mpg", "mpeg", "mov", "rm", "ram", "swf", "wmv", "qt"
strimagesrc = "<img src=""images/sm-video1.gif"" width=""30"" height=""30"" border=""0"">"
Case Else
strimagesrc = "<img src=""images/sm-unknown1.gif"" width=""30"" height=""30"" border=""0"">"
End Select 

If Not t Mod tpr = 0 Then
%>
<td align="center">
<a href="igallery.asp?d=<%= URLSpace(Replace(LCase(f1),LCase(UploadPath),"")) %>\"><%= strimagesrc %></a><br>
</td>
<% Else %>
<td align="center">
<a href="igallery.asp?d=<%= URLSpace(Replace(LCase(f1),LCase(UploadPath),"")) %>\"><%= strimagesrc %></a><br>
</td>
</tr>
<%
End if
End If	
tcount = tcount + 1	
t = t + 1
End If
Set Jpeg = Nothing

If tcount > 3 Then Exit For

Next
%>
</table>

</td>
</tr>
</table>
<img src="images/spacer.gif" width="1" height="3" border="0"><br>
<a class="linkxsm" href="igallery.asp?d=<%= URLSpace(Replace(LCase(f1),LCase(UploadPath),"")) %>\"><b><%= f1.name %></b></a><br>
</td>
</tr>
</table>
<%
'##### End Display Folders ######


'##### Begin Display Images ######
ElseIf dirFile = "DISPLAYIMAGES" Then

strBaseDir 		= BaseDir

If strBaseDir <> "" Then strBaseDir = strBaseDir Else strBaseDir = ""
If NOT InStr(f1, "tn-") > 0 AND NOT InStr(LCase(f1), "thumbs.db") > 0 Then ' Hide Non-Thumnails & Thumbs.db In View

'##### Original Image Size ######
'FileExt = fExt(f1.Name)
'Select Case FileExt
'Case "jpg", "jpeg", "gif", "bmp", "png"
'ImagePath 		= UploadPath &"\"& strImageFolder &"\" & strimage
'If gfxSpex(Replace(f1.Path,"tn-",""), width, height, colors, strType) = True Then
'ImageWidth  = width
'ImageHeight = height
'End If
'End Select

If Nailer Then

'If ImageWidth > 145 Then
strwidth  = "145"
'strheight = Round(145*ImageHeight/ImageWidth,0)
strimagesrc = "<img class=""shadow1"" style=""border: 1px solid gray;"" src="""& URLPath&"/"&strBaseDir &"/tn-"&f1.Name&""" width="""&strwidth&"""  border=""0"">"
'Else
'strwidth = ImageWidth
'strHeight = ImageHeight
'strimagesrc = "<img style=""border: 1px solid gray;"" src="""& URLPath&"/"&strBaseDir &"/"&f1.Name&""" width="""&strwidth&""" height="""&strheight&""" border=""0"">"
'End If

Else

'If ImageWidth > 145 Then
strwidth  = "145"
'strheight = Round(145*ImageHeight/ImageWidth,0)
'Else
'strwidth = ImageWidth
'strHeight = ImageHeight
'End If

strimagesrc = "<img style=""border: 1px solid gray;"" src="""& URLPath&"/"&strBaseDir &"/"&f1.Name&""" width="""&strwidth&"""  border=""0"">"

End If

If (RecordsCount >= (intPage * RecordsPerPage)) and (RecordsCount < (intPage * RecordsPerPage) + RecordsPerPage) Then
If NOT i MOD RecordsPerRow = 0 Then
strImageName 	= f1.name 
QS 			 	= "?image="&URLSpace(Replace(strImageName,"tn-",""))&"&folder="&URLSpace(BaseDir)&"&page="&intPage
%>
<td style="padding: 5px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>
<%
'####################################
'## Application:   Blue-Collar Productions
'## File Name:     igallery.inc
'## Copyright:     This code is copyrighted. Please see http://www.b-cp.com for details.
'## Notice:        This code has limited warranties. Please see http://www.b-cp.com for details.
'####################################
%>

<%
strimage 		= Replace(f1.Name,"tn-","")
strfolder 		= BaseDir

Set RS1 = Server.CreateObject("ADODB.RecordSet")
Set GalleryConn1 = Server.CreateObject ("ADODB.Connection")
GalleryConn1.Open strConnect

SQL1 = "SELECT * FROM Descriptions " & _
"WHERE imagename ='" & strimage & _
"' AND folder ='" & Replace(strfolder,"'","''") &  _
"' "

RS1.Open SQL1, GalleryConn1, adOpenStatic, adLockReadOnly, adCmdText

If RS1.EOF And RS1.BOF Then
strtitle1		= strimage
If Session("userLevel") = "99" OR Session("userLevel") = "98" Then
strtitle2 		= CropIt(strimage,TitleMax+10)
Else
strtitle2 		= CropIt(strimage,TitleMax)
End If
strdescription1 = ""
Else
If RS1("title") <> "" Then
strtitle1 		= RS1("title")
strtitle2 		= RS1("title")
Else
strtitle1 		= strimage
If Session("userLevel") = "99" OR Session("userLevel") = "98" Then
strtitle2 		= CropIt(strimage,TitleMax+10)
Else
strtitle2 		= CropIt(strimage,TitleMax)
End If
End If

strid 			= RS1("ID")
strdescription1 = RS1("description")
strviews 		= RS1("total")
strvotes 		= RS1("votes")
strrating 		= RS1("rating")
strdateadded	= RS1("dateadded")
End If

RS1.Close
GalleryConn1.Close

'DotPosition = InStrRev(f1.name, ".")
'FileExt = Mid(f1.name,DotPosition + 1)
'FileExt = LCase(FileExt)
FileExt = fExt(f1.name)
qs1="vote.asp?link="&strid&"&image="&URLSpace(Replace(f1.Name,"'","\'"))&"&folder="&URLSpace(Replace(strfolder,"'","\'"))&"&page="&intPage

imgnew12 = "<img src=""images/newlink12.gif"" width=27 height=10 border=0 alt="""&IGi_add&": "&strdateadded&""">"
imgnew8  = "<img src=""images/newlink8.gif"" width=27 height=10 border=0 alt="""&IGi_add&": "&strdateadded&""">"
imgnew4  = "<img src=""images/newlink4.gif"" width=27 height=10 border=0 alt="""&IGi_add&": "&strdateadded&""">"
imgnew0  = "<img src=""images/spacer.gif"" width=27 height=10 border=0>"

if DateDiff("d",strdateadded,Date())>"" and DateDiff("d",strdateadded,Date())<8 then
strhistory = imgnew12
elseif DateDiff("d",strdateadded,Date())>7 and DateDiff("d",strdateadded,Date())<15 then
strhistory = imgnew8
elseif DateDiff("d",strdateadded,Date())>14 and DateDiff("d",strdateadded,Date())<22 then
strhistory = imgnew4
else
strhistory = imgnew0
end if
%>

<table width="100%" align="center" cellspacing="0" cellpadding="0" border="0">

<tr>
<td colspan="2" style="padding-bottom: 4px;">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="100%"><span class="textxsm" style="cursor: default;" title="<%= strtitle1 %>"><b><%= strtitle2 %></b></span></td>
<% If History Then %>
<td align="right">
<%= strhistory %><br>
</td>
<% End If %>
</tr>
</table>
</td>
</tr>

<%
Select Case FileExt
Case "jpg", "jpeg", "gif", "bmp", "png"
%>

<tr>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<td valign="top">
<table width="100%" cellspacing="0" cellpadding="1" border="0">
<tr>
<td colspan="2"><img src="images/spacer.gif" width=1 height=1 border=0 alt=""></td>
</tr>
<% If gfxSpex(Replace(f1.Path,"tn-",""), width, height, colors, strType) = True Then %>
<tr>
<td><font class="textxsm"><i><%= IGi_ht %>:</td>
<td><font class="textxsm" style="color: #CC0000;"><%= height %></td>
</tr>
<tr>
<td><font class="textxsm"><i><%= IGi_wd %>:</td>
<td><font class="textxsm" style="color: #CC0000;"><%= width %></td>
</tr>
<% Else  %>
<tr>
<td><font class="textxsm"><i><%= IGi_ht %>:</td>
<td><font class="textxsm"><%= IGi_un %></td>
</tr>
<tr>
<td><font class="textxsm"><i><%= IGi_wd %>:</td>
<td><font class="textxsm"><%= IGi_un %></td>
</tr>
<% 
End If

If DateFormat = 1 Then
modified			= USDate(f1.DateLastModified)
ElseIf DateFormat = 2 Then
modified			= EuroDate(f1.DateLastModified)
Else
modified 		= FormatDateTime(f1.DateLastModified,2)
End If
%>
<tr>
<td><font class="textxsm"><i><%= IGi_mod %>:</td>
<td><font class="textxsm"><%= modified %><br></td>
</tr>
<tr>
<td><font class="textxsm"><i><%= IGi_sz %>:</td>
<td nowrap><font class="textxsm"><%= FileSize(f1.Size) %><br></td>
</tr>
<tr>
<td colspan="2">
<a class="linkxsm" href="editimage.asp<%= QS %>"><%= IGi_adjprop %></a><br>
</td>
</tr>
</table>
</td>
<% End If %>

<td valign="top" style="padding-left: 2px; padding-right: 2px;" align="center"><% If (ie) Then %><div id="mydiv<%= RecordsCount %>" class="displayretainer"><% End If %>
<a href="javascript:void('0');" onClick="imagePopup('viewphoto.asp?i=<%= URLSpace(Replace(f1.Name,"tn-","")) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>');" title="<%= IGi_view %>: <%= strtitle1 %>"><%= strimagesrc %></a><br>
<% If (ie) Then %></div><% End If %></td>
</tr>

<% If ToolBar Then %>
<tr>
<td align="center" style="padding-top: 4px; padding-bottom: 4px;" colspan="2">
<!--#INCLUDE FILE="include/toolbar.asp"-->
</td>
</tr>
<% End If %>

<% Case "mid", "midi", "au", "aif", "aiff", "snd", "wav", "mp3", "mpga" %>

<tr>
<td height="115" align="center" valign="center">
<a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/file-audio1.gif" height="60" width="60" border="0" alt="<%= IGi_dwnaudio %>: <%= strtitle1 %>"></a><br>
<img src="images/spacer.gif" width="1" height="4"><br>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<% If ToolBar Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="22"><a href="editimage.asp<%= QS %>"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/sm-pencil1.gif" width="23" height="22" border="0" alt="<%= IGi_editaudio %>"></a></td>
<td width="2"><img src="images/spacer.gif" width="2" height="24" border="0" border=0 alt=""></td>
<td width="22"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/gallery/download.gif" width="23" height="22" border="0" alt="<%= IGi_dwnaudio %>"></a></td>
</tr>
</table>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="18" nowrap><a href="editimage.asp<%= QS %>"><img src="images/sm-editimage.gif" height="20" width="25" border="0" alt="<%= IGi_editaudio %>"></a></td>
<td nowrap><a class="linksm" href="editimage.asp<%= QS %>"><%= IGi_editaudio %></a></td>
</tr>
</table>
<% End If %>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="16" height="18"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/xsm-download.gif" height="10" width="13" border="0" alt=""></a></td>
<td><a class="linksm" href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><%= IGi_dwnld %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %></a></td>
</tr>
</table>
<% End If %>
</td>
</tr>

<% Case "avi", "mpg", "mpeg", "mov", "rm", "ram", "swf", "wmv", "qt" %>

<tr>
<td height="115" align="center" valign="center">
<a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/file-video1.gif" height="60" width="60" border="0" alt="<%= IGi_dwnld %>: <%= strtitle1 %>"></a><br>
<img src="images/spacer.gif" width="1" height="4"><br>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<% If ToolBar Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="22"><a href="editimage.asp<%= QS %>"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/sm-pencil1.gif" width="23" height="22" border="0" alt="<%= IGi_editvideo %>"></a></td>
<td width="2"><img src="images/spacer.gif" width="2" height="24" border="0" border=0 alt=""></td>
<td width="22"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/gallery/download.gif" width="23" height="22" border="0" alt="<%= IGi_dwnvideo %>"></a></td>
</tr>
</table>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="18" nowrap><a href="editimage.asp<%= QS %>"><img src="images/sm-editimage.gif" height="20" width="25" border="0" alt="<%= IGi_editvideo %>"></a></td>
<td nowrap><a class="linksm" href="editimage.asp<%= QS %>"><%= IGi_editvideo %></a></td>
</tr>
</table>
<% End If %>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="16" height="18"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/xsm-download.gif" height="10" width="13" border="0" alt=""></a></td>
<td><a class="linksm" href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><%= IGi_dwnld %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %></a></td>
</tr>
</table>
<% End If %>
</td>
</tr>

<% Case Else %>

<tr>
<td>
<table width="100%" align="center" cellspacing="0" cellpadding="1" border="0">
<tr>
<td height="115" align="center" valign="center">
<img src="images/file-unknown1.gif" height="60" width="60" border="0" alt="<%= IGi_unkn %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %>"><br>
<img src="images/spacer.gif" width="1" height="4"><br>
<font class="linksm">
<%= IGi_unkn %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %>
</font>
</td>
</tr>
</table>
</td>
</tr>

<% End Select %>

<%
Select Case FileExt
Case "jpg", "jpeg", "gif", "bmp", "png", "mid", "midi", "au", "aif", "aiff", "snd", "wav", "mp3", "mpga", "avi", "mpg", "mpeg", "mov", "rm", "ram", "swf", "wmv", "qt"
%>

<tr>
<td colspan="2">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<% If Vote Then %>
<td><a href="javascript: void(0);" onclick="VotePopup('<%= qs1 %>','385','245')"><img src="images/<%= "str-"& round(strrating,0) & ".gif" %>" width="41" border="0" alt="<%= IGi_vote %>!<% If strvotes <> "" Then %>&nbsp;-&nbsp;<%= IGi_tv %>: <%= strvotes %><% End If %>"></a></td>
<% End If %>
<td align="right"><font class="textxsm"><b><%= IGi_views %>:</b> <% If strviews <> "" Then response.write strviews Else response.write "0" %></font></td>
</tr>
<% If Description Then %>
<tr>
<td colspan="2"><font class="textxsm"><%= strdescription1 %></font></td>
</tr>
<% End If %>
</table>
</td>
</tr>

<% Case Else %>

<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<tr>
<td colspan="2">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td></td>
<td align="right">
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="13"><img src="images/xsm-delete.gif" width=10 height=10 border="0" alt=""></td>
<td><a class="textxsm" style="text-decoration: none;" href="editimage.asp<%= QS %>"><b><%= IGi_delunkn %></b></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<% End If %>

<% End Select %>

</table>
</td>
<%
Else
strImageName 	= f1.name 
QS 			 	= "?image="&URLSpace(Replace(strImageName,"tn-",""))&"&folder="&URLSpace(BaseDir)&"&page="&intPage
%>
<td style="padding: 5px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>
<%
'####################################
'## Application:   Blue-Collar Productions
'## File Name:     igallery.inc
'## Copyright:     This code is copyrighted. Please see http://www.b-cp.com for details.
'## Notice:        This code has limited warranties. Please see http://www.b-cp.com for details.
'####################################
%>

<%
strimage 		= Replace(f1.Name,"tn-","")
strfolder 		= BaseDir

Set RS1 = Server.CreateObject("ADODB.RecordSet")
Set GalleryConn1 = Server.CreateObject ("ADODB.Connection")
GalleryConn1.Open strConnect

SQL1 = "SELECT * FROM Descriptions " & _
"WHERE imagename ='" & strimage & _
"' AND folder ='" & Replace(strfolder,"'","''") &  _
"' "

RS1.Open SQL1, GalleryConn1, adOpenStatic, adLockReadOnly, adCmdText

If RS1.EOF And RS1.BOF Then
strtitle1		= strimage
If Session("userLevel") = "99" OR Session("userLevel") = "98" Then
strtitle2 		= CropIt(strimage,TitleMax+10)
Else
strtitle2 		= CropIt(strimage,TitleMax)
End If
strdescription1 = ""
Else
If RS1("title") <> "" Then
strtitle1 		= RS1("title")
strtitle2 		= RS1("title")
Else
strtitle1 		= strimage
If Session("userLevel") = "99" OR Session("userLevel") = "98" Then
strtitle2 		= CropIt(strimage,TitleMax+10)
Else
strtitle2 		= CropIt(strimage,TitleMax)
End If
End If

strid 			= RS1("ID")
strdescription1 = RS1("description")
strviews 		= RS1("total")
strvotes 		= RS1("votes")
strrating 		= RS1("rating")
strdateadded	= RS1("dateadded")
End If

RS1.Close
GalleryConn1.Close

'DotPosition = InStrRev(f1.name, ".")
'FileExt = Mid(f1.name,DotPosition + 1)
'FileExt = LCase(FileExt)
FileExt = fExt(f1.name)
qs1="vote.asp?link="&strid&"&image="&URLSpace(Replace(f1.Name,"'","\'"))&"&folder="&URLSpace(Replace(strfolder,"'","\'"))&"&page="&intPage

imgnew12 = "<img src=""images/newlink12.gif"" width=27 height=10 border=0 alt="""&IGi_add&": "&strdateadded&""">"
imgnew8  = "<img src=""images/newlink8.gif"" width=27 height=10 border=0 alt="""&IGi_add&": "&strdateadded&""">"
imgnew4  = "<img src=""images/newlink4.gif"" width=27 height=10 border=0 alt="""&IGi_add&": "&strdateadded&""">"
imgnew0  = "<img src=""images/spacer.gif"" width=27 height=10 border=0>"

if DateDiff("d",strdateadded,Date())>"" and DateDiff("d",strdateadded,Date())<8 then
strhistory = imgnew12
elseif DateDiff("d",strdateadded,Date())>7 and DateDiff("d",strdateadded,Date())<15 then
strhistory = imgnew8
elseif DateDiff("d",strdateadded,Date())>14 and DateDiff("d",strdateadded,Date())<22 then
strhistory = imgnew4
else
strhistory = imgnew0
end if
%>

<table width="100%" align="center" cellspacing="0" cellpadding="0" border="0">

<tr>
<td colspan="2" style="padding-bottom: 4px;">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="100%"><span class="textxsm" style="cursor: default;" title="<%= strtitle1 %>"><b><%= strtitle2 %></b></span></td>
<% If History Then %>
<td align="right">
<%= strhistory %><br>
</td>
<% End If %>
</tr>
</table>
</td>
</tr>

<%
Select Case FileExt
Case "jpg", "jpeg", "gif", "bmp", "png"
%>

<tr>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<td valign="top">
<table width="100%" cellspacing="0" cellpadding="1" border="0">
<tr>
<td colspan="2"><img src="images/spacer.gif" width=1 height=1 border=0 alt=""></td>
</tr>
<% If gfxSpex(Replace(f1.Path,"tn-",""), width, height, colors, strType) = True Then %>
<tr>
<td><font class="textxsm"><i><%= IGi_ht %>:</td>
<td><font class="textxsm" style="color: #CC0000;"><%= height %></td>
</tr>
<tr>
<td><font class="textxsm"><i><%= IGi_wd %>:</td>
<td><font class="textxsm" style="color: #CC0000;"><%= width %></td>
</tr>
<% Else  %>
<tr>
<td><font class="textxsm"><i><%= IGi_ht %>:</td>
<td><font class="textxsm"><%= IGi_un %></td>
</tr>
<tr>
<td><font class="textxsm"><i><%= IGi_wd %>:</td>
<td><font class="textxsm"><%= IGi_un %></td>
</tr>
<% 
End If

If DateFormat = 1 Then
modified			= USDate(f1.DateLastModified)
ElseIf DateFormat = 2 Then
modified			= EuroDate(f1.DateLastModified)
Else
modified 		= FormatDateTime(f1.DateLastModified,2)
End If
%>
<tr>
<td><font class="textxsm"><i><%= IGi_mod %>:</td>
<td><font class="textxsm"><%= modified %><br></td>
</tr>
<tr>
<td><font class="textxsm"><i><%= IGi_sz %>:</td>
<td nowrap><font class="textxsm"><%= FileSize(f1.Size) %><br></td>
</tr>
<tr>
<td colspan="2">
<a class="linkxsm" href="editimage.asp<%= QS %>"><%= IGi_adjprop %></a><br>
</td>
</tr>
</table>
</td>
<% End If %>

<td valign="top" style="padding-left: 2px; padding-right: 2px;" align="center"><% If (ie) Then %><div id="mydiv<%= RecordsCount %>" class="displayretainer"><% End If %>
<a href="javascript:void('0');" onClick="imagePopup('viewphoto.asp?i=<%= URLSpace(Replace(f1.Name,"tn-","")) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>');" title="<%= IGi_view %>: <%= strtitle1 %>"><%= strimagesrc %></a><br>
<% If (ie) Then %></div><% End If %></td>
</tr>

<% If ToolBar Then %>
<tr>
<td align="center" style="padding-top: 4px; padding-bottom: 4px;" colspan="2">
<!--#INCLUDE FILE="include/toolbar.asp"-->
</td>
</tr>
<% End If %>

<% Case "mid", "midi", "au", "aif", "aiff", "snd", "wav", "mp3", "mpga" %>

<tr>
<td height="115" align="center" valign="center">
<a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/file-audio1.gif" height="60" width="60" border="0" alt="<%= IGi_dwnaudio %>: <%= strtitle1 %>"></a><br>
<img src="images/spacer.gif" width="1" height="4"><br>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<% If ToolBar Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="22"><a href="editimage.asp<%= QS %>"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/sm-pencil1.gif" width="23" height="22" border="0" alt="<%= IGi_editaudio %>"></a></td>
<td width="2"><img src="images/spacer.gif" width="2" height="24" border="0" border=0 alt=""></td>
<td width="22"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/gallery/download.gif" width="23" height="22" border="0" alt="<%= IGi_dwnaudio %>"></a></td>
</tr>
</table>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="18" nowrap><a href="editimage.asp<%= QS %>"><img src="images/sm-editimage.gif" height="20" width="25" border="0" alt="<%= IGi_editaudio %>"></a></td>
<td nowrap><a class="linksm" href="editimage.asp<%= QS %>"><%= IGi_editaudio %></a></td>
</tr>
</table>
<% End If %>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="16" height="18"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/xsm-download.gif" height="10" width="13" border="0" alt=""></a></td>
<td><a class="linksm" href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><%= IGi_dwnld %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %></a></td>
</tr>
</table>
<% End If %>
</td>
</tr>

<% Case "avi", "mpg", "mpeg", "mov", "rm", "ram", "swf", "wmv", "qt" %>

<tr>
<td height="115" align="center" valign="center">
<a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/file-video1.gif" height="60" width="60" border="0" alt="<%= IGi_dwnld %>: <%= strtitle1 %>"></a><br>
<img src="images/spacer.gif" width="1" height="4"><br>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<% If ToolBar Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="22"><a href="editimage.asp<%= QS %>"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/sm-pencil1.gif" width="23" height="22" border="0" alt="<%= IGi_editvideo %>"></a></td>
<td width="2"><img src="images/spacer.gif" width="2" height="24" border="0" border=0 alt=""></td>
<td width="22"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img onmouseup="button_up(this)" class="toolbar" onmousedown="button_down(this)" onmouseover="button_over(this)" onmouseout="button_out(this)" src="images/gallery/download.gif" width="23" height="22" border="0" alt="<%= IGi_dwnvideo %>"></a></td>
</tr>
</table>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="18" nowrap><a href="editimage.asp<%= QS %>"><img src="images/sm-editimage.gif" height="20" width="25" border="0" alt="<%= IGi_editvideo %>"></a></td>
<td nowrap><a class="linksm" href="editimage.asp<%= QS %>"><%= IGi_editvideo %></a></td>
</tr>
</table>
<% End If %>
<% Else %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="16" height="18"><a href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><img src="images/xsm-download.gif" height="10" width="13" border="0" alt=""></a></td>
<td><a class="linksm" href="streamfile.asp?i=<%= URLSpace(f1.Name) %>&f=<%= URLSpace(Replace(BaseDir,"'","\'")) %>&mode=other"><%= IGi_dwnld %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %></a></td>
</tr>
</table>
<% End If %>
</td>
</tr>

<% Case Else %>

<tr>
<td>
<table width="100%" align="center" cellspacing="0" cellpadding="1" border="0">
<tr>
<td height="115" align="center" valign="center">
<img src="images/file-unknown1.gif" height="60" width="60" border="0" alt="<%= IGi_unkn %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %>"><br>
<img src="images/spacer.gif" width="1" height="4"><br>
<font class="linksm">
<%= IGi_unkn %>&nbsp;.<%= UCase(FileExt) %>&nbsp;<%= IGi_f %>
</font>
</td>
</tr>
</table>
</td>
</tr>

<% End Select %>

<%
Select Case FileExt
Case "jpg", "jpeg", "gif", "bmp", "png", "mid", "midi", "au", "aif", "aiff", "snd", "wav", "mp3", "mpga", "avi", "mpg", "mpeg", "mov", "rm", "ram", "swf", "wmv", "qt"
%>

<tr>
<td colspan="2">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<% If Vote Then %>
<td><a href="javascript: void(0);" onclick="VotePopup('<%= qs1 %>','385','245')"><img src="images/<%= "str-"& round(strrating,0) & ".gif" %>" width="41" border="0" alt="<%= IGi_vote %>!<% If strvotes <> "" Then %>&nbsp;-&nbsp;<%= IGi_tv %>: <%= strvotes %><% End If %>"></a></td>
<% End If %>
<td align="right"><font class="textxsm"><b><%= IGi_views %>:</b> <% If strviews <> "" Then response.write strviews Else response.write "0" %></font></td>
</tr>
<% If Description Then %>
<tr>
<td colspan="2"><font class="textxsm"><%= strdescription1 %></font></td>
</tr>
<% End If %>
</table>
</td>
</tr>

<% Case Else %>

<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<tr>
<td colspan="2">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td></td>
<td align="right">
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="13"><img src="images/xsm-delete.gif" width=10 height=10 border="0" alt=""></td>
<td><a class="textxsm" style="text-decoration: none;" href="editimage.asp<%= QS %>"><b><%= IGi_delunkn %></b></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<% End If %>

<% End Select %>

</table>
</td>
</tr>
<%
End If
End If
RecordsCount = RecordsCount + 1
If rowcount = RecordsPerRow Then rowcount = 0
rowcount = rowcount + 1
i = i + 1
End If
%>

<%
'##### End Display Images ######

End If 
End Sub
'################# End SUB DisplayGallery Folder & Object Set-Up #################
%>

<html>
<head>

<title>.:: <%= GalleryVersion %> Main Folder ::.</title>

<script language="Javascript"> 
<!--
function imagePopup(url) {
if(document.all)
TheNewWin = window.open(url+'&sh='+screen.height+'&sw='+screen.width,'','fullscreen=yes,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no'); 
else
TheNewWin = window.open(url+'&sh='+window.screen.availHeight+'&sw='+window.screen.availWidth,'','titlebar=no,width=' + window.screen.availWidth+',height='+window.screen.availHeight+',screenX=0,screenY=0')
}
function VotePopup(url,pwidth,pheight) {
var leftPos = (screen.availWidth-pwidth) / 2
var topPos = (screen.availHeight-pheight) / 2 
var vpop = window.open(url,'votepop','width=' + pwidth + ',height=' + pheight + ',scrollbars=yes,resizable=no,status=no,toolbar=no,location=no,top=' + topPos + ',left=' + leftPos);
if (window.focus) vpop.window.focus();
}
function checkField(theForm) {
if (theForm.F.value == "") {
alert("Please enter a value in the provided field before proceeding!.");
theForm.F.focus();
return (false);
}
return (true);
}
function VerifyDelete(URL) {
var verify = confirm("Are you sure you want to permanently delete the selected \"Item\" from the i-Gallery database?  All information will be lost!");
if (verify == true) {
window.open(URL,"_self");
}}
function button_over(eButton){
eButton.style.backgroundColor 	= "#C1D2EE";
eButton.style.borderColor 		= "darkblue darkblue darkblue darkblue";
eButton = null; 
}
function button_out(eButton){
eButton.style.backgroundColor 	= "#EFEFEF";
eButton.style.borderColor 		= "#DDDDDD #DDDDDD #DDDDDD #DDDDDD"; 
}
function button_down(eButton){
eButton.style.backgroundColor 	= "#98B5E2";
eButton.style.borderColor 		= "darkblue darkblue darkblue darkblue";
}
function button_up(eButton){
eButton.style.backgroundColor 	= "#C1D2EE";
eButton.style.borderColor 		= "darkblue darkblue darkblue darkblue";
eButton.style.cursor 			= "hand"; 
}
i = 0;
deg2rad = Math.PI * 2 / 360;
function SetRotation(divID,deg,M11,M12,M21,M22) {
rad = deg * deg2rad;
costheta = Math.cos(rad);
sintheta = Math.sin(rad);
divID.filters.item(0).M11 = costheta;
divID.filters.item(0).M12 = -sintheta;
divID.filters.item(0).M21 = sintheta;
divID.filters.item(0).M22 = costheta;
}
function setScripts() {
self.name = 'igallery';
}
window.onload = setScripts;
//-->
</script>

<link rel="stylesheet" type="text/css" href="style/style.css">

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="760" cellspacing="0" cellpadding="0" border="0">

<tr>
<td colspan="3"><%
'####################################
'i-Gallery LOGO;
'I don't mind if you remove the header but if you intend to use i-Gallery on your site please
'provide a link back to the software on the pages powered by i-Gallery.  Thanks for all your
'support!
'####################################
%>

<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="75">

<table height="75" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<a class="linksm" href="default.asp"><img src="images/igallery-logo.gif" width=300 height=62 border=0 alt="<%= IGhead_homep %>"></a><br>
</td>
</tr>
</table>

</td>
</tr>
<tr>
<td height="24" bgcolor="#5090D0" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=0,startColorStr=<%= StartColor1 %>,endColorStr=<%= EndColor1 %>);" colspan="3">

<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<font style="color: <%= DateColor %>;" class="textsm">
&nbsp;&nbsp;<b><%= FormatDateTime(igalleryNow,1) %></b><br>
</font>
</td>
<td style="padding-right: 6px;" align="right">

<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<a href="authorize.asp?l=O" onMouseOver="document.sbtnoff.src='images/sm-logoff2.gif'" onMouseOut="document.sbtnoff.src='images/sm-logoff1.gif'"><img name="sbtnoff" src="images/sm-logoff1.gif" width="14" height="14" border="0" alt="<%= IGhead_lgoff %>"></a><br>
<% Else %>
<a href="login.asp?n=<%= Request.ServerVariables("SCRIPT_NAME") %>&d=<%= URLSpace(Request("d")) %>" onMouseOver="document.sbtnon.src='images/sm-logon2.gif'" onMouseOut="document.sbtnon.src='images/sm-logon1.gif'"><img name="sbtnon" src="images/sm-logon1.gif" width="14" height="14" border="0" alt="<%= IGhead_lgon %>"></a><br>
<% End If %>

</td>
</tr>
</table>

</td>
</tr>
</table></td>
</tr>

<tr>
<td style="padding-top:7px;" width="200" valign="top">

<%
'####################################
'## Application:   Blue-Collar Productions
'## File Name:     menu.asp
'## File Version:  4.0
'## Copyright:     This code is copyrighted and has limited warranties. Please see http://www.b-cp.com for details.
'####################################
%>

<script type="text/javascript">
<!--
function CompactRepair(url) {
var leftPos = (screen.availWidth-500) / 2
var topPos  = (screen.availHeight-175) / 2 
var iforgot = window.open(url,'','width=500,height=175,scrollbars=no,resizable=no,status=no,toolbar=no,location=no,top=' + topPos + ',left=' + leftPos);
}
//-->
</script>

<img src="images/spacer.gif" width=1 height=5 border=0 alt=""><br>

<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="19" valign="bottom"><img src="images/sm-folder.gif" alt="" width="16" height="14" border="0"></td>
<td class="textsm" valign="bottom"><a class="textsm" style="text-decoration:none;" href="igallery.asp"><b><%= GalleryName %></b></a></td>
</tr>
</table>

<img src="images/spacer.gif" width=1 height=3 border=0 alt=""><br>

<!-- ################ Begin Tree Layout ################ -->
<table width="200" cellspacing="0" cellpadding="0" border="0">
<%
On Error Resume Next

folderc = 0
For Each fn1 In FileList
folderc = folderc +1
Next

currentf = 1
For Each fn In FileList
If NOT LCase(fn.Name) = "_vti_cnf" Then ' Hide Front Page "_vti_cnf" Folder In Menu

If Request("D") Then
String1 = LCase(Request("D"))
Else
String1 = "\"&LCase(Replace(Request("folder"),"/","\"))&"\"
End If
String2 = "\"&LCase(fn.Name)&"\"
If InStr(String1,String2)>0 Then
ShowFolder = True
Else
ShowFolder = False
End if

If len(fn.Name) > 30 Then 
FolderName = Left(fn.Name,30)&"..."
Else
FolderName = fn.Name
End if

Directory = fn
Directory = Replace(LCase(Directory),LCase(UploadPath),"")
Directory = URLSpace(Directory)
%>

<tr>
<td height="18" width="17"><img src="images/sm-tree2.gif" alt="" width="17" height="17" border="0"></td>
<td width="18" nowrap><img src="images/sm-folder<% If ShowFolder Then %>4<% Else %>5<% End If %>.gif" width=17 height=16 border=0 alt=""></td>
<td width="100%" nowrap><a class="linkxsm" href="igallery.asp?d=<%= Directory %>\"><b><%= FolderName %></b></a></td>
</tr>

<%
Set FileList1 = fn.SubFolders
For Each fn1 in FileList1
If NOT LCase(fn1.Name) = "_vti_cnf" Then ' Hide Front Page "_vti_cnf" Folder In Menu

If ShowFolder Then
If Request("D") Then
String1a = LCase(Request("D"))
Else
String1a = "\"&LCase(Replace(Request("folder"),"/","\"))&"\"
End If
String2a = "\"&LCase(fn1.Name)&"\"
If InStr(String1a,String2a)>0 Then
ShowFolder1 = True
Else
ShowFolder1 = False
End if

If len(fn1.Name) > 23 Then 
FolderName = Left(fn1.Name,23)&"..."
Else
FolderName = fn1.Name
End if

Directory1 = fn1
Directory1 = Replace(LCase(Directory1),LCase(UploadPath),"")
Directory1 = URLSpace(Directory1)
%>

<tr>
<td height="18" width="17"><% If currentf = folderc Then %><img src="images/spacer.gif" width="17" height="18" border="0" alt=""><% Else %><img src="images/sm-tree1.gif" width="17" height="18" border="0" alt=""><% End If %></td>
<td height="18" width="18" nowrap><img src="images/sm-tree2.gif" alt="" width="17" height="17" border="0"></td>
<td width="100%" nowrap>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="18" nowrap><img src="images/sm-folder<% If ShowFolder1 Then %>4<% Else %>5<% End If %>.gif" width=17 height=16 border=0 alt=""></td>
<td nowrap><a class="linkxsm" href="igallery.asp?d=<%= Directory1 %>\" Title="<%= fn1.Name %>"><%= FolderName %></a></td>
</tr>
</table>
</td>
</tr>

<%
Set FileList2 = fn1.SubFolders
For Each fn2 in FileList2
If NOT LCase(fn2.Name) = "_vti_cnf" Then ' Hide Front Page "_vti_cnf" Folder In Menu

If ShowFolder Then
If Request("D") Then
String1b = LCase(Request("D"))
Else
String1b = "\"&LCase(Replace(Request("folder"),"/","\"))&"\"
End If
String2b = "\"&LCase(fn2.Name)&"\"
If InStr(String1b,String2b)>0 Then
ShowFolder2 = True
Else
ShowFolder2 = False
End if

If len(fn2.Name) > 20 Then 
FolderName = Left(fn2.Name,20)&"..."
Else
FolderName = fn2.Name
End If

Directory2 = fn2
Directory2 = Replace(LCase(Directory2),LCase(UploadPath),"")
Directory2 = URLSpace(Directory2)
%>

<tr>
<td height="18" width="17"><% If currentf = folderc Then %><img src="images/spacer.gif" width="17" height="18" border="0" alt=""><% Else %><img src="images/sm-tree1.gif" width="17" height="18" border="0" alt=""><% End If %></td>
<td height="18" width="18" nowrap><img src="images/spacer.gif" width="18" height="18" border="0" alt=""></td>
<td width="100%" nowrap>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="18" width="18" nowrap><img src="images/sm-tree2.gif" alt="" width="17" height="17" border="0"></td>
<td width="18" nowrap><img src="images/sm-folder<% If ShowFolder2 Then %>4<% Else %>5<% End If %>.gif" width=17 height=16 border=0 alt=""></td>
<td nowrap><a class="linkxsm" href="igallery.asp?d=<%= Directory2 %>\" Title="<%= fn2.Name %>"><%= FolderName %></a></td>
</tr>
</table>
</td>
</tr>

<%
Set FileList3 = fn2.SubFolders
For Each fn3 in FileList3
If NOT LCase(fn3.Name) = "_vti_cnf" Then ' Hide Front Page "_vti_cnf" Folder In Menu

If ShowFolder Then
If Request("D") Then
String1c = LCase(Request("D"))
Else
String1c = "\"&LCase(Replace(Request("folder"),"/","\"))&"\"
End If
String2c = "\"&LCase(fn3.Name)&"\"
If InStr(String1c,String2c)>0 Then
ShowFolder3 = True
Else
ShowFolder3 = False
End if

If len(fn3.Name) > 17 Then 
FolderName = Left(fn3.Name,17)&"..."
Else
FolderName = fn3.Name
End if

Directory3 = fn3
Directory3 = Replace(LCase(Directory3),LCase(UploadPath),"")
Directory3 = URLSpace(Directory3)
%>

<tr>
<td height="18" width="17"><% If currentf = folderc Then %><img src="images/spacer.gif" width="17" height="18" border="0" alt=""><% Else %><img src="images/sm-tree1.gif" width="17" height="18" border="0" alt=""><% End If %></td>
<td height="18" width="18" nowrap><img src="images/spacer.gif" width="18" height="18" border="0" alt=""></td>
<td width="100%" nowrap>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="18" width="18" nowrap><img src="images/spacer.gif" width="18" height="18" border="0" alt=""></td>
<td height="18" width="18" nowrap><img src="images/sm-tree2.gif" alt="" width="17" height="17" border="0"></td>
<td width="18" nowrap><img src="images/sm-folder<% If ShowFolder3 Then %>4<% Else %>5<% End If %>.gif" width=17 height=16 border=0 alt=""></td>
<td nowrap><a class="linkxsm" href="igallery.asp?d=<%= Directory3 %>\" Title="<%= fn3.Name %>"><%= FolderName %></a></td>
</tr>
</table>
</td>
</tr>

<% 
End If
End If
Next
%>

<% 
End If
End If
Next
%>

<% 
End If
End If
Next
%>

<%
End If
currentf = currentf + 1
Next
%>
</table>
<!-- ################ End Tree Layout ################ -->

<img src="images/spacer.gif" width=1 height=10 border=0 alt=""><br>

[an error occurred while processing this directive]

<hr size="1" color="silver">

<% If Anonymous Then %>

<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-portrait.gif" alt="" width="15" height="16" border="0"></td>
<td class="textsm"><b><%= IGmenu_spo %>:</b></td>
</tr>
</table>

<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="17" align="right"><a class="linkxsm" href="submitphotos.asp?mi=1"><b><%= IGmenu_subfrm %></b></a></td>
<% If Request("mi") = "1" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/xsm-email.gif"  border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
</table>

<% End If %>


<% If Session("userLevel") = "99" Then %>

<hr size="1" color="silver">

<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-users.gif" alt="" width="14" height="14" border="0"></td>
<td class="textsm"><b><%= IGmenu_ua %>:</b></td>
</tr>
</table>

<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="17" align="right"><a class="linkxsm" href="users.asp?mode=add&mi=2"><b><%= IGmenu_anu %></b></a></td>
<% If Request("mi") = "2" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
<tr>
<td height="17" align="right"><a class="linkxsm" href="users.asp?mi=3"><b><%= IGmenu_mu %></b></a></td>
<% If Request("mi") = "3" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
<tr>
<td height="17" align="right"><a class="linkxsm" href="logs.asp?mi=4"><b><%= IGmenu_ulf %></b></a></td>
<% If Request("mi") = "4" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
</table>

<img src="images/spacer.gif" width=1 height=5 border=0 alt=""><br>

<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-system1.gif" alt="" width="14" height="14" border="0"></td>
<td class="textsm"><b><%= IGmenu_smngt %>:</b></td>
</tr>
</table>

<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="17" align="right"><a class="linkxsm" href="system.asp?mi=5"><b><%= IGmenu_smaint %></b></a></td>
<% If Request("mi") = "5" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
<tr>
<td height="17" align="right"><a class="linkxsm" href="javascript:void('0');" onClick="CompactRepair('compact-repair.asp');"><b><%= IGmenu_candr %></b></a></td>
<% If Request("mi") = "6" Then %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/sm-cal.gif" width=16 height=14 border=0 alt=""></td>
<% Else %>
<td width="20" style="padding-right:2px;" align="right" nowrap><img src="images/arrow-rt.gif" width=13 height=10 border=0 alt=""></td>
<% End If %>
</tr>
</table>

<hr size="1" color="silver">

<!-- ################ Begin i-Gallery Message Board ################# -->
<% If MessageBoard Then %>
<script type="text/javascript">
<!--
var ie=document.all
var ns6=document.getElementById&&!document.all
var dragapproved=false
var z,x,y
function move(e){
if (dragapproved){
z.style.left=ns6? temp1+e.clientX-x: temp1+event.clientX-x
z.style.top=ns6? temp2+e.clientY-y : temp2+event.clientY-y
return false}}
function drags(e){
if (!ie&&!ns6)
return
var firedobj=ns6? e.target : event.srcElement
var topelement=ns6? "HTML" : "BODY"
while (firedobj.tagName!=topelement&&firedobj.className!="drag"){
firedobj=ns6? firedobj.parentNode : firedobj.parentElement}
if (firedobj.className=="drag"){
dragapproved=true
z=firedobj
temp1=parseInt(z.style.left+0)
temp2=parseInt(z.style.top+0)
x=ns6? e.clientX: event.clientX
y=ns6? e.clientY: event.clientY
document.onmousemove=move
return false}}
document.onmousedown=drags
document.onmouseup=new Function("dragapproved=false")
//-->
</script>
<div align="center">
<div class="drag" style="position: relative; cursor: move;">
<div style="padding:5px; border:1px solid #cccccc; width:180px; background-color:#fbfbfb; filter:alpha(opacity=60);">
<div style="padding-bottom:5px; width:180px;">
<table style="font-family:Verdana; font-size:10px; font-weight:bold; text-align:left;" width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>&nbsp;<%= IGmenu_mb %></td>
<td align="right"><img src="images/stomp-pad.gif" width=27 height=11 border=0 alt=""></td>
</tr>
</table>
</div>
<iframe name="v7" src="http://www.b-cp.com/updates/igsu.asp" marginheight="0" marginwidth="0" frameborder="0" scrolling="no" height="100" width="180"></iframe>
</div>
</div>
<% End If %>
<!-- ################ End i-Gallery Message Board ################# -->


<% End If %>
<img src="images/spacer.gif" width=200 height=5 border=0 alt=""><br>

</td>

<td width="20" valign="top"><img src="images/spacer-bevel.gif" width=20 height=235 border=0 alt=""></td>
<td style="padding-left:10px;padding-top:15px;" width="100%" valign="top">

<%
'################ Begin Display Folder & Object Layout ################
Sub iGallery
Set f = fso.GetFolder(fsDir)
Set FileList = f.subFolders

Dim emptyDir
emptyDir = TRUE

If TopLevel Then
Parent = ""
%>

<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="34" height="32"><img src="images/folder-open.gif" width=30 height=32 border=0 alt=""></td>
<td><font class="largeheader"><%= GalleryName %></font></td>
</tr>
</table>
<img src="images/spacer.gif" width=10 height=5 border=0 alt=""><br>

<%
Else
Parent = fso.GetParentFolderName(fsDir)
Parent = Replace(LCase(Parent),LCase(UploadPath),"")
Parent = Replace(Parent,"\\","\")
%>

<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="34" height="32"><img src="images/folder-open.gif" width=30 height=32 border=0 alt=""></td>
<td><font class="largeheader"><%= f.name %></font></td>
</tr>
</table>
</td>
<td align="right">

<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="22"><img src="images/sm-uponelevel.gif" width=22 height=23 border=0 alt=""></td>
<td><a class="link" title="Up One Level" href="igallery.asp?d=<%= URLSpace(Parent) %>\"><b><%= IG_uol %></b></a></td>
</tr>
</table>

</td>
</table>

<% End If %>

<!-- ################ Folder Layout ################ -->
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<%
'On Error Resume Next
fi 	= 1
fpr = FoldersPerRow
For Each fn in FileList
emptyDir = FALSE
If Not LCase(fn.Name) = "_vti_cnf" Then
If Not fi Mod fpr = 0 then
%>
<td align="center">
<% DisplayGallery "DISPLAYFOLDERS",fn %>
</td>
<td width="10">&nbsp;</td>
<% Else %>
<td align="center">
<% DisplayGallery "DISPLAYFOLDERS",fn %>
</td>
</tr>
<%
End If
fi = fi + 1
End If
Next
%>
</table>
<!-- ################ End Folder Layout ################ -->

<img src="images/spacer.gif" width=10 height=10 border=0 alt=""><br>

<!-- ################ Object Layout With Paging ################ -->
<table align="center" bgcolor="gray" cellpadding=0 cellspacing=0 border=0>
<tr>
<td>

<table width="100%" cellpadding=1 cellspacing=1 border=0>
</tr>
<%
Set filelist = f.Files

If Nailer Then

For Each fn in filelist
emptyDir = FALSE
DisplayGallery "DISPLAYIMAGES",fn
Next

Else

For Each fn in filelist
emptyDir = FALSE
If NOT InStr(LCase(fn.Name), "tn-") > 0 Then
DisplayGallery "DISPLAYIMAGES",fn
End If

Next

End If
%>

<%
If Request("Page") = "" Then
CurrentPage = 0
Else
CurrentPage = CInt(Request("Page"))
End If
PageCount = Round((RecordsCount/RecordsPerPage),1)
'If (PageCount > 1) Then PageCount = int(PageCount) + 1
If InStrRev(PageCount, ".") > 0 Then
DotPosition = InStrRev(PageCount, ".")
Decimal = Mid(PageCount,DotPosition + 1)
If Decimal <= 5 Then
PageCount = Round(PageCount+.5,0)
Else
PageCount = Round(PageCount,0)
End If
Else
PageCount = Round(PageCount,0)
End If
%>

<%
lastrowtotal 	= rowcount-1
blankspaces 	= RecordsPerRow - lastrowtotal

If NOT CurrentPage+1 < PageCount AND NOT TopLevel AND NOT blankspaces = RecordsPerRow Then
Select Case blankspaces
Case 1
%>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<%
Case 2
%>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<%
Case 3
%>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<%
Case 4
%>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<%
Case 5
%>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<td style="padding: 3px;" <% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>width="245"<% Else %>width="155"<% End If %> bgcolor="#f4f4f4" onMouseOver="this.bgColor='#efefef'" onMouseOut="this.bgColor='#f7f7f7'" valign="top" nowrap>&nbsp;</td>
<%
End Select 
End If
%>

</tr>
</table>

</td>
</tr>
</table>

<%
'####################################
'## Application:   Blue-Collar Productions
'## File Name:     paging-ig.asp
'## File Version:  4.0
'## Notice:        This code has limited warranties. Please see http://www.b-cp.com for details.
'####################################
%>

<%
CurrentUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
CurrentUrl = CurrentUrl & "?d=" & Request("d") & "&page="

If CurrentPage <> 0 Then
pgHTML = "<td nowrap><a class=""paging"" href=""" & CurrentUrl & CurrentPage-1 & """><b>&#171;Prev</b></a><img src=""images/spacer.gif"" width=""1"" hspace=""2"" height=""1""></td>"
End If

If PageCount > 1 Then

for i = 1 to PageCount		
If NOT (i-1 = CurrentPage) Then

If Int(i/10) = Int(CurrentPage/10) Then

pgHTML = pgHTML & "<td nowrap><a class=""paging"" href=""" & CurrentUrl & i-1 & """>" & i & "</a><img src=""images/spacer.gif"" width=""1"" hspace=""2"" height=""1""></td>"

Else

' Determine last page [ - X] 
If i+9 > PageCount Then
lastx = PageCount
Else
lastx = i+9
If lastx = 10 Then
lastx = 9
End If
End If

pgHTML = pgHTML & "<td nowrap><a class=""paging"" href=""" & CurrentUrl & i & """>[" & i & "-" & lastx & "]</a><img src=""images/spacer.gif"" width=""1"" hspace=""2"" height=""1""></td>"

i = (int(i/10)+1)*10-1
End If

Else

pgHTML = pgHTML & "<td nowrap>"
pgHTML = pgHTML & "<table cellspacing=""0"" cellpadding=""0"" border=""0""><tr>"
pgHTML = pgHTML & "<td style=""background-color: #4F8FCF; border: 1px solid #0C5444; padding-left: 2px; padding-right: 2px; padding-bottom: 1px;"">"
pgHTML = pgHTML & "<font class=""paging"" style=""color: #ffffff""><b>" & i & "</b></font>"
pgHTML = pgHTML & "</td>"
pgHTML = pgHTML & "<td>"
pgHTML = pgHTML & "<img src=""images/spacer.gif"" width=""1"" hspace=""2"" height=""1"">"
pgHTML = pgHTML & "</td></tr>"
pgHTML = pgHTML & "</table>"
pgHTML = pgHTML & "</td>"

End If

Next
End If

If CurrentPage+1 < PageCount Then
pgHTML = pgHTML & "<td nowrap><a class=""paging"" href=""" & CurrentUrl & CurrentPage+1 & """><b>Next&#187;</b></a></td>"
End If
%>


<% If PageCount > 1 Then %>
<img src="images/spacer.gif" width=5 height=5 border=0 alt=""><br>
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<% If PageCount > 1 Then %>
<font class="paging"><%= IG_pg1 %> [<%= CurrentPage+1 %>&nbsp;<%= IG_pg2 %>&nbsp;<%= PageCount %>]</font>
<% End If %>
</td>
<td align="right">
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<%= pgHTML %>
</tr>
</table>
</td>
</tr>
</table>
<% End If %>
<!-- ################ End Object Layout With Paging ################ -->


<!-- ################ Begin Empty Root Folder Message ################ -->
<% If TopLevel AND emptyDir Then %>
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>
<font class="text"><%= IG_erfm1 %><br></font>
<% Else %>
<font class="text"><%= IG_erfm2 %><br></font>
<% End If %>
<% End If %>
<!-- ################ End Empty Root Folder Message ################ -->


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

<!-- ################ Delete Empty Directory ################ -->

<% If NOT TopLevel AND emptyDir AND RecordsCount = "0" Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<form method="post" action="igallery.asp">
<input type="hidden" name="PARENT" value="<%= Parent %>">
<input type="hidden" name="PATHNAME" value="<%=  fsdir %>">
<td><img src="images/spacer.gif" width=4 height=1 border=0><font face="Arial" size=1><%= IG_ded %></font></td>
<td>&nbsp;<input type="CHECKBOX" name="OK">&nbsp;</td>
<td><input class="button" style="font-size: 8.5pt;" type="SUBMIT" name="POSTACTION" value="DELETE"></td>
</tr></form>
</table>
<% End If %>
<!-- ################ End Delete Empty Directory ################ -->

<% If Nailer AND Not TopLevel AND NOT RecordsCount = "0" Then %>

<img src="images/spacer.gif" width=5 height=5 border=0 alt=""><br>
<table align="center" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="16" height="17"><img src="images/sm-broken.gif" width="12" height="11" border="0" alt=""></td>
<td><a class="linkxsm" href="generator.asp?folder=<%= URLSpace(BaseDir) %>" title="Repair Broken Thumbnails In This Folder"><%= IG_ri %></a></td>
<td width="14" align="right"><% If Session(BaseDir&"-repair") = 1 Then %><img src="images/sm-greencheck.gif" width="12" height="11" border="0" alt=""><% End If %></td>
</tr>
</table>
<% End If %>
<% If Not TopLevel AND NOT RecordsCount = "0" Then %>
<table align="center" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="16" height="17"><img src="images/sm-syncimages.gif" width="12" height="11" border="0" alt=""></td>
<td><a class="linkxsm" href="generator1.asp?folder=<%= URLSpace(BaseDir) %>" title="Sync All Images In This Folder To Database"><%= IG_si %></a></td>
<td width="14" align="right"><% If Session(BaseDir&"-sync") = 1 Then %><img src="images/sm-greencheck.gif" width="12" height="11" border="0" alt=""><% End If %></td>
</tr>
</table>
<% End If %>

<%
Dim CurrentDir
CurrentDir = Replace(BaseDir,"/","\")

Dim ParentDir
ParentDir = Replace(Parent,LCase(UploadPath),"")
'ParentDir = Right(ParentDir,Len(ParentDir)-1)
ParentDir = Replace(ParentDir,"\","/")
%>

<img src="images/spacer.gif" width=1 height=15 border=0 alt=""><br>

<table align="center" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<!-- ################ Create New Directory ################ -->
<table style="filter:progid:DXImageTransform.Microsoft.Shadow(color='#a9a9a9', Direction=135, Strength=2);" align="center" bgcolor="gray" cellspacing="0" cellpadding="1" border="0">
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="3" border="0">
<tr>
<td bgcolor="#F7F7F7">
<table width="100%" cellspacing="0" cellpadding="1" border="0">
<form name="newdir" method="get" action="igallery.asp" onsubmit="return checkField(newdir)">
<input type="hidden" name="C" value="<%= CurrentDir %>">
<input type="hidden" name="D" value="<%= fsdir %>">
<input type="hidden" name="T" value="F">
<tr>
<td colspan="2">
<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-folder.gif" width="16" height="14" border="0"></td>
<% If TopLevel Then %>
<td class="textsm"><b><%= IG_cnd1 %>:</b></td>
<% Else %>
<td class="textsm"><b><%= IG_cnd2 %>:</b></td>
<% End If %>
</tr>
</table>
</tr>
<tr>
<td><font class="textsm"><input type="text" style="width: 150px;" size=12 name="F" class="input"></td>
<td><font class="textsm"><input class="button" style="font-size: 8.5pt;" type="submit" value="<%= IG_but1 %>"></td>
</tr></form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-- ################ End Create New Directory ################ -->
</td>
<% If NOT TopLevel Then %>
<td width="15"><img src="images/spacer.gif" width=15 height=1 border=0 alt=""></td>
<td>
<!-- ################ Re-Name Directory ################ -->
<table style="filter:progid:DXImageTransform.Microsoft.Shadow(color='#a9a9a9', Direction=135, Strength=2);" align="center" bgcolor="gray" cellspacing="0" cellpadding="1" border="0">
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="3" border="0">
<tr>
<td bgcolor="#F7F7F7">
<table width="100%" cellspacing="0" cellpadding="1" border="0">
<form name="renamedir" method="get" action="igallery.asp" onsubmit="return checkField(renamedir)">
<input type="hidden" name="PARENT" value="<%= Parent %>">
<input type="hidden" name="PFOLDER" value="<%= ParentDir %>">
<input type="hidden" name="OFOLDER" value="<%= BaseDir%>">
<input type="hidden" name="C" value="<%= CurrentDir %>">
<input type="hidden" name="D" value="<%= fsdir %>">
<input type="hidden" name="T" value="R">
<tr>
<td colspan="2">
<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td><img src="images/sm-folder.gif" width="16" height="14" border="0"></td>
<td class="textsm"><b><%= IG_rnd1 %>:</b></td>
</tr>
</table>
</tr>
<tr>
<td><font class="textsm"><input type="text" style="width: 150px;" size=12 name="F" class="input"></td>
<td><font class="textsm"><input class="button" style="font-size: 8.5pt;" type="submit" value="<%= IG_but2 %>"></td>
</tr></form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-- ################ End Re-Name Directory ################ -->
</td>
<% End If %>
</tr>
</table>

<% Else %>

<!-- ################ Empty Directory Message ################ -->
<% If Not TopLevel AND RecordsCount = "0" Then %>
<font class="text">
<%= IG_edm %><br>
</font>
<% End If %>
<!-- ################ End Empty Directory Message ################ -->

<% End If %>

<!-- ################ Upload & Return To Main Link ################ -->
<% If Session("userLevel") = "99" OR Session("userLevel") = "98" Then %>

<%
Directory = f
Directory = Replace(LCase(Directory),LCase(UploadPath),"")
Directory = Replace(Directory,"\\","\")
%>

<img src="images/spacer.gif" width=10 height=10 border=0 alt=""><br>

<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>
<% If Not TopLevel Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="25" nowrap><img src="images/sm-upload1.gif" alt="" width="25" height="20" border="0"></td>
<td nowrap><a class="link" href="upload.asp?d=<%= URLSpace(Directory&"\") %>"><b><%= IG_upttf1 %></b></a></td>
</tr>
</table>
<% End If %>
</td>
<td align="right">
<% If Not TopLevel Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="22" nowrap><img src="images/spacer.gif" width="1" height="2"><br><a class="linkmed" href="igalery.asp"><img src="images/sm-return.gif" width="18" height="18" border="0"></a></td>
<td nowrap><a class="link" href="igallery.asp"><b><%= IG_upttf2 %></b></a></td>
</tr>
</table>
<% End If %>
</td>
</tr>
</table>
<% End If %>
<!-- ################ End Upload & Return To Main Link ################ -->

</td>
</tr>

<tr>
<td colspan="3"><%
'####################################
'Powered By: i-Gallery
'I don't mind if you remove the footer but if you intend to use i-Gallery on your site please
'provide a link back to the software on the pages powered by i-Gallery.  Thanks for all your
'support!
'####################################

menuPage = Request.ServerVariables("Script_Name")
menuPage = Mid(menuPage,InstrRev(menuPage,"/") + 1)
%>
<img src="images/spacer.gif" width="1" height="8"><br>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="230" nowrap>&nbsp;</td>
<td width="100%">
<% If History AND menuPage = "igallery.asp" Then %>
<table cellspacing="0" cellpadding="0" border="0">
<tr>
<td><img src="images/newlink12.gif" width=27 height=10 border=0 alt=""></td>
<td><font class="textxsm">&nbsp;- <%= IGfoot_his1 %>&nbsp;&nbsp;&nbsp;</td>
<td><img src="images/newlink8.gif" width=27 height=10 border=0 alt=""></td>
<td><font class="textxsm">&nbsp;- <%= IGfoot_his2 %>&nbsp;&nbsp;&nbsp;</td>
<td><img src="images/newlink4.gif" width=27 height=10 border=0 alt=""></td>
<td><font class="textxsm">&nbsp;- <%= IGfoot_his3 %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
</table>
<% End If %>
</td>
<td width="160" align="right" nowrap><font class="textsm"><%= IGfoot_pb %>:&nbsp;<a class="linksm" href="http://www.b-cp.com/igallery" target="_blank"><%= Replace(GalleryVersion," - ","") %></a>&nbsp;&nbsp;</font></td>
</tr>
</table>
</td>
</tr>

</table>

<p>

<%
End Sub
'################ End Display Folder & Object Layout ################
%>

<%
'################ Create New Folder ################
Sub CreateFolder

fn = fn
fn = Replace(fn,"\","")
fn = Replace(fn,"/","")
fn = Replace(fn,":","")
fn = Replace(fn,"?","")
fn = Replace(fn,"<","")
fn = Replace(fn,">","")
fn = Replace(fn,"|","")
fn = Replace(fn,chr(42),"")
fn = Replace(fn,chr(34),"")

PathOrig 	= Request.QueryString("D")
PathName    = PathOrig & fn

PathCurrent = Request.QueryString("C")
PathCurrent = "\"&PathCurrent&"\"
NewFolderRedirect = PathCurrent&fn&"\"

PathRename 	= Request.QueryString("PARENT") & fn
OldDirectory = LCase(Request.QueryString("OFOLDER"))

If Request.QueryString("PFOLDER") <> "" Then
NewDirectory = LCase(Request.QueryString("PFOLDER") &"/"& fn)
Else
NewDirectory = LCase(fn)
End If

PathParent 	= Request.QueryString("PARENT")
RenameFolderRedirect = PathParent&"\"&fn&"\"

If right(PathName,1) = "\" Then PathName = Left(PathName,len(PathName)-1)

Select Case UCase(Request.QueryString("T"))

Case "F" 'Create Folder
If NOT fso.FolderExists(PathName) Then
Set f = fso.CreateFolder(PathName)
response.redirect "igallery.asp?d="&URLSpace(NewFolderRedirect)
Else
response.redirect "igallery.asp?d="&URLSpace(PathCurrent)
End If

Case "R" 'Rename Folder
If fso.FolderExists(PathOrig) Then
Set f = fso.GetFolder(PathOrig)
f.Name = fn

' Batch Folder Update
Set renameConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
renameConn.Open strConnect
Set RS.ActiveConnection = renameConn
RS.CursorType = adOpenStatic
RS.LockType = adLockBatchOptimistic
SQL = "SELECT * FROM Descriptions"
SQL = SQL & " WHERE (1=1) "
RS.Open SQL,,,adCmdTable
While Not RS.EOF

If Instr(RS("folder"),OldDirectory) Then
strnewdir = Replace(RS("folder"),OldDirectory,rURLSpace(NewDirectory))
RS("folder") = rURLSpace(strnewdir)
End if

RS.MoveNext
Wend
RS.UpdateBatch
RS.close
Set RS = Nothing
' End Batch Folder Update

response.redirect "igallery.asp?d="&URLSpace(RenameFolderRedirect)
Else
response.redirect "igallery.asp?d="&URLSpace(PathCurrent)
End If

End Select

End Sub
%>

<%
'################ Begin Main Guts ################
' Root Image Directory
fsDir = LCase(UploadPath&Request("d"))
fsDir = Replace(fsDir,"\..","")
fsDir = Replace(fsDir,"..","")

If fsDir = UploadPath Then fsDir = Request.Form("fsDir")
fsRoot   = LCase(UploadPath)&"\"
If Instr(fsdir,fsroot) <> 1 Then fsDir = fsRoot
If Lcase(fsDir) = Lcase(fsRoot) Then TopLevel = TRUE

' Base Image Directory
Dim BaseDir
BaseDir 	= Replace(Mid(fsDir,len(fsRoot),250),"\","/")
BaseDir 	= Left(BaseDir,Len(BaseDir)-1)
BaseDir 	= Right(BaseDir,Len(BaseDir)-1)

' Form Action
Action 		= Request.Form("POSTACTION")
PathName 	= Request.Form("PATHNAME")

' Delete Empty Folders
Select Case UCase(Action)
Case "DELETE"
If Request.Form("OK") = "on" Then
PathParent = Request.Form("PARENT")
If Instr(PathName,fsroot) = 1 Then
fso.DeleteFolder Left(PathName,Len(PathName)-1),TRUE
response.redirect "igallery.asp?d="&URLSpace(PathParent)&"\"
End If
End If
If Request.Form("DELETEOK") = "on" Then
If Instr(PathName,fsroot) = 1 Then
If fso.FileExists(Request.Form("PathName")) Then
Set f = fso.GetFile(Request.Form("PathName"))
f.delete
End If
End If
End If
End Select

' Choose Re-Direct
If Action <> "" Then
tstr = "igallery.asp?d="
If NOT TopLevel Then 
tstr = tstr & URLSpace(fsDir)
End If
response.redirect tstr
End If

' Page Display 
fn = Request.QueryString("f")
If fn = "" Then
iGallery
Else
CreateFolder
End If

'#################  End Main Guts  #################
%>

<% 
Set objFC 	= nothing
Set objF 	= nothing
Set objFSO 	= Nothing
Set FSO 	= Nothing
Set f 		= Nothing
Set fsDir 	= Nothing
%>

</body>
</html>