|
| | 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 Login where LoginID=" & Request.QueryString("LoginID")
adoCn.Execute strSQL
end if
if Request.QueryString("action")="ByCategory" then
strSQL = "SELECT * FROM Login WHERE CatID = '" & Request.QueryString("CatID") & "' ORDER BY LoginID;"
adoCn.Execute strSQL
end if
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Login order by LoginID Desc"
%>
<%
adoRs.Open strSQL, adoCn, 3, 1, &H0001
%>
<%
If adoRs.RecordCount = 0 Then
%>
<%
Response.End
Else
End IF
%>
<%
Dim ShowPage
ShowPage = CInt(Request.QueryString("ShowPage"))
Dim PageSize
' nombre de produits a 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
%>
<%
IF Session("AccessLevel")="Admin" Then%>
<%End If%>
<%
IF LCase(Session("AccessLevel"))=Lcase("Author") and Lcase(Session("LoginName"))= Lcase(adoRs("LoginName")) Then
%>
<%
End If
%>
<%
i = i + 1
adoRs.MoveNext
Loop%>
<%
IF Not Session("AccessLevel")="Author" Then
%>
<%
If Request.QueryString("HideDesc")="HideDesc" Then %>
<%PagingHideDescLoginAdminList()%>
<%Else%>
<%PagingLoginAdminList()%>
<%End IF%>
<%
End IF
%>
<%
IF Session("AccessLevel")="Author" Then
Response.write " | "
Else
%>
<% Dim TotalRecords
TotalRecords= adoRs.RecordCount
response.Write "Il y a " &TotalRecords & " compte(s) dans " & NumOfPages& " page(s) "%>
|
<%
End IF
%>
<%
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%> |