<% dim adoCn dim strSQL set adoCn = Server.CreateObject("ADODB.Connection") adoCn.Open strConn if Request.QueryString("action")="del" then strSQL = "DELETE FROM Images where ImageID=" & Request.QueryString("ImageID") adoCn.Execute strSQL end if dim adoRs set adoRs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Images WHERE LoginName = '" & Request.QueryString("LoginName") & "' ORDER BY ImageID;" %> <% adoRs.Open strSQL, adoCn, 3, 1, &H0001 %> <% If adoRs.RecordCount = 0 Then %>

<% IF Session("AccessLevel")= "Admin" or Session("AccessLevel")= "Author" Then%> [ Wrong Entry Found ] [ Back to Right page ] <% Else %> [ Wrong Entry Found ] [ Back to Right page ] <% End IF %>

<% Response.End Else End IF %> <% Dim ShowPage ShowPage = CInt(Request.QueryString("ShowPage")) Dim PageSize ' change below number to change display of number of entries per page ' this If condition allows to display more pages in case of Hide description If Request.QueryString("HideDesc")="HideDesc" Then PageSize = 20 Else PageSize = 5 End IF adoRs.PageSize = PageSize Dim NumOfPages NumOfPages = adoRs.PageCount If ShowPage < 1 then ShowPage = 1 ElseIf ShowPage > NumOfPages Then ShowPage = NumOfPages End If adoRs.AbsolutePage = ShowPage Dim i i = 0 %>

---

Gallery :

<%If Request.QueryString("HideDesc")="HideDesc" Then %> "> Expand  <%Else%> "> Collaps  <%End IF%>

<% Do While Not adoRs.EOF and not i = PageSize %> <% i = i + 1 adoRs.MoveNext Loop%> <% If Request.QueryString("HideDesc")="HideDesc" Then %> <%PagingHideDescLoginNameUserList()%> <%Else%> <%PagingLoginNameUserList()%> <%End IF%>

<% Dim TotalRecords TotalRecords= adoRs.RecordCount response.Write "" &TotalRecords & " Entries in " & NumOfPages& " page(s) "%>

<% adoRs.Close set adoRs = nothing adoCn.Close set adoCn = nothing %>