<% Response.buffer=True If Session("LoginName") = "" then Response.redirect "login.asp?Redirect=" &Request.Servervariables("URL") End If %>

Liste des pages  Esplanade Parmentier 62600 Berck-sur-Mer  Tél : 03.21.09.21.21    Fax : 03.21.09.29.29    <% 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("LoginName") = "" Then %> <% Response.redirect("Login.asp?Redirect="&strRedirectURL) %> [ Identification ]   <%Else%> Ajouter un nouveau produit <%End IF%> <% Response.End Else End IF %> <% Dim ShowPage ShowPage = CInt(Request.QueryString("ShowPage")) Dim PageSize ' nombre d'entrées à afficher sur la page 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 %> <% Do While Not adoRs.EOF and not i = PageSize %> <% i = i + 1 adoRs.MoveNext Loop%> <% If Request.QueryString("HideDesc")="HideDesc" Then %> <%PagingHideDescLoginNameAdminList()%> <%Else%> <%PagingLoginNameAdminList()%> <%End IF%> <% Dim TotalRecords TotalRecords= adoRs.RecordCount response.Write "Il y a " &TotalRecords & " entrée(s) dans " & NumOfPages& " page(s) "%> <% adoRs.Close set adoRs = nothing adoCn.Close set adoCn = nothing %>