<%@LANGUAGE="VBSCRIPT"%> <% defaultCategory = "Icons" dim upRequest Set upRequest = Server.CreateObject("SoftArtisans.FileUp") 'imgLibrary V1.0 28-FEB-2001 'This image library is to be used as an include and opened in a pop-up window. 'Change pagename to suit imgCategory = uprequest.form("imgCategory") if len(imgCategory) = 0 then imgCategory = defaultCategory end if imgName = uprequest.form("imgName") imgParent = "imagesLib/" 'Directory in which images are stored thispage = "imageLib.asp" %>

Image Library <% if uprequest.form("action") = "add" then dim result ' 'Create Server Object AND Get Form Elements if not IsObject(uprequest.Form("ImageToAdd")) Then %> The form contains a tag named "FILE1" which is not of TYPE="FILE". Please check your form definition. <% elseif upRequest.Form("ImageToAdd").IsEmpty Then %> The file that you uploaded was empty. Most likely, you did not specify a valid filename to your browser or you left the filename field blank. Please try again. <% elseIf upRequest.Form("ImageToAdd").ContentDisposition <> "form-data" Then %> Your upload did not succeed, most likely because your browser does not support Upload via this mechanism. <% else on error resume next filename = upRequest.form("ImageToAdd").UserFilename filename = getFileName(filename) DeleteIfExists(Server.MapPath(imgParent & imgCategory & "\" & filename)) upRequest.form("ImageToAdd").SaveInVirtual imgParent & imgCategory & "\" & filename if Err <> 0 Then %> An error occurred when saving the file on the server. <% else Response.Write("" & filename & " saved successfully to category " &imgCategory & ".!") end if end if end if if uprequest.form("action") = "delete" then if isnull(upRequest.Form("deletename")) Then %> Error: You must select and image before you delete it. Please try again. <% else DeleteIfExists( Server.MapPath(imgParent & imgCategory & "\" & upRequest.Form("deletename")) ) response.write ("'" & upRequest.Form("deletename") & "' was deleted successfully.") imgName = "" end if end if %>
Category:	<%=DirectorySelectBox(AbsPath(imgParent), imgCategory, "", "")%>
Add a new image: 1. Select the CATEGORY (above) you wish image to be placed in 2. BROWSE & select from your hard drive 3. Click on ADD into Category 4. Image to be no wider than 200 pixels
Current Images in selected Category: Select to highlight and preview, then click SELECT to insert into Page	<%=FileSelectBox(AbsPath(imgParent & imgCategory), imgName, "", "")%>
SELECT to insert: (DELETE will remove Image from Category)

<% if imgName <> "" then %> <% else %> <% end if set upRequest = nothing %>

Preview: "> <%=imgParent & imgCategory & "/" & imgName%>

Please select an image from the list. "> Developed by AussieWeb.