<% response.buffer=True %>
<%
dim srcField
dim idField
dim uploadType
dim folderPath
dim list
dim x
dim title
dim db_table
dim libraryParent
dim folder_id
dim folder_title
dim returnFileName
srcField = request("srcField")
idField = request("idField")
uploadType = request("uploadType")
returnFileName = request("returnFileName")
folder_id = request("folder_id")
folder_title = request("folder_title")
select case uploadType
case "image"
title = "Image"
db_table = "images"
orderBy_field = "image_title"
libraryParent = imageLibrary_id
case "file"
title = "File"
db_table = "files"
orderBy_field = "file_title"
libraryParent = fileLibrary_id
case else
title = "Link"
db_table = "links"
orderBy_field = "link_title"
libraryParent = linkLibrary_id
end select
rowClass = "odd"
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("Electric Putty CMS :: Select " & uploadType & "" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
Select " & title & " Source
" & VbCrLf)
'-- If we have a folder defined list its contents
if len(folder_id)>0 then
response.write("
" & VbCrLf)
response.write("
Listing all " & db_table & " in '" & folder_title & "' folder
" & VbCrLf)
response.write("
" & VbCrLf)
response.write("
" & VbCrLf)
response.write("
" & VbCrLf)
if uploadType = "image" then
response.write("
Image
" & VbCrLf)
response.write("
Title
" & VbCrLf)
response.write("
Select
" & VbCrLf)
else
response.write("
File
" & VbCrLf)
response.write("
Select
" & VbCrLf)
end if
response.write("
" & VbCrLf)
rowClass = "odd"
strSQL = "SELECT * FROM " & db_table & " WHERE ia_parentid = " & folder_id & " ORDER BY " & orderBy_field
Set rs = LoadRSFromDB(strSQL)
if not rs.EOF then
Do While not rs.EOF
response.write("
" & VbCrLf)
if uploadType = "image" then
response.write("
" & VbCrLf)
response.write("
" & rs("image_title") & "
" & VbCrLf)
response.write("
" & VbCrLf)
elseif uploadType = "file" then
dim fileExtension
fileExtension = lcase(right(rs("file_src"),3))
select case fileExtension
case "pdf"
FileIcon = "icon_filePDF.gif"
case "doc"
FileIcon = "icon_fileWord.gif"
case else
FileIcon = "icon_fileWord.gif"
end select
response.write("
" & VbCrLf)
'-- If not list the folders
else
response.write("
" & VbCrLf)
strSQL = ""&_
"SELECT p.page_id, pi.page_title "&_
"FROM pages p "&_
"INNER JOIN ia ia on p.page_id = ia.ia_childid "&_
"INNER JOIN page_info pi on pi.page_id = p.page_id "&_
"WHERE ia.ia_parentid = " & libraryParent & " AND pi.language_ID = " & session("languageID") &_
" ORDER BY ia.ia_sortorder"
Set rs = LoadRSFromDB(strSQL)
if not rs.EOF then
response.write("