<% '----------------------------------------------------------- '-- TITLE: IMAGE FUNCTIONS '-- AUTHOR: MALCOLM ELSWORTH [malcolm@electricputty.co.uk] '-- LAST MODIFIED: 02-05-06 '-- (C) ELECTRIC PUTTY LIMITED '----------------------------------------------------------- '----------------------------------------------------------- '-- WRITE OUT ALL IMAGES '----------------------------------------------------------- function viewAllImages() if len(confirmMsg) > 0 then response.write("

" & confirmMsg & "

") else response.write("

" & VbCrLf) end if response.write("" & VbCrLf) response.write("" & VbCrLf) response.write(" " & VbCrLf) response.write(" " & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write(" " & VbCrLf) response.write(" " & VbCrLf) response.write("" & VbCrLf) response.write("

Folder name	Edit
" & writePageTitle(this_page_id) & "

") dim thisImageID dim thisImageName rowClass = "odd" strSQL = ""&_ "Select * from images where ia_parentid = " & this_page_id & " order by image_title" Set rs = LoadRSFromDB(strSQL) if not rs.EOF then response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) Do While not rs.EOF thisImageID = rs("image_id") thisImageName = rs("image_title") response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) if rowClass = "odd" then rowClass = "even" else rowClass = "odd" end if rs.movenext Loop response.write("

Image name	Preview	Edit	Delete
" & thisImageName & "

") else response.write("

There are currently no images in this folder

") end if set rs = nothing response.write("" & VbCrLf) end function '----------------------------------------------------------- '-- FUNCTION TO ADD/EDIT IMAGE DETAILS '----------------------------------------------------------- function addEditImage(image_id) dim this_process dim this_screenTitle if len(image_id) > 0 then strSQL = "Select * from images where image_id = " & image_id Set rs = LoadRSFromDB(strSQL) if not rs.EOF then this_id = image_id this_process = "update" this_formAction = "Update image" this_title = rs("image_title") this_image_src = rs("image_src") this_image_alt = rs("image_alt") this_image_longdesc = rs("image_longdesc") this_image_caption = rs("image_caption") this_image_categories = rs("image_categories") this_image_openNodes = rs("image_openNodes") end if set rs = nothing this_screenTitle = "Edit image info" else this_process = "add" this_formAction = "Add image" this_id = "" this_title = "" this_image_src = "" this_image_alt = "" this_image_longdesc = "" this_image_caption = "" this_image_categories = "" this_image_openNodes = "" this_screenTitle = "Add image to '" & writePageTitle(this_page_id) & "' folder" end if response.write("

" & this_screenTitle & "

" & VbCrLf) response.write("

" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("Image title:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) if this_process = "add" then response.write("" & VbCrLf) else response.write("Image folder:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) end if response.write("Image source:" & VbCrLf) response.write("

" & VbCrLf) if len(this_image_src) > 0 then response.write("
") end if response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("

" & VbCrLf) response.write("Image alt:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("Image caption:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("Image long description:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write(" " & VbCrLf) response.write("

" & VbCrLf) response.write("

" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("

" & VbCrLf) end function function renameImageFolder() response.write("

Rename folder

" & VbCrLf) response.write("" & VbCrLf) end function %>