<% response.CacheControl = "no-cache" %> <% if request("Action") = "delete" and request("ImageID") <> empty then s_ImageName = request("ImageName") strSQL = "Delete from Image Where ImageID = " & request("ImageID") set con = server.createobject("ADODB.Connection") con.open Application("CString") con.execute(strSQL) con.close set con = nothing DeleteFile server.mappath("../../images/content/"& s_ImageName) response.Redirect("images.asp?cache="&server.URLEncode(now())) end if strSQL= "Select * from Image " set rsImage = server.createobject("ADODB.Recordset") rsImage.open strSQL, Application("CString"), 3, 1 ImageCount = rsImage.RecordCount Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "UploadMonitor/FRAMEBAR.ASP?to=10&"& PID %>
<% end if%>
Random Photos

Select photo:

Uploaded photos :
<% if not rsImage.EOF then%> <% do while not rsImage.EOF i_ImageID = rsImage("ImageID") s_ImageName = rsImage("ImageName") s_ImageDesc = rsImage("Description") %> <% rsImage.MoveNext %> <%loop %>
 
 
<% if ImageCount = 0 or ISNull(ImageCount) then%> <%end if%>