Listagem dos Administradores

Para colocar em ordem, escolha e clique no nome da coluna.

 

<% Dim orderBy orderBy = request.querystring("orderby") If orderBy = "Email" Then SQL = "SELECT * FROM tbllogin ORDER BY usuarioEmail" ElseIf orderBy = "nome" Then SQL = "SELECT * FROM tbllogin ORDER BY usuarionome" ElseIf orderBy = "acesso" Then SQL = "SELECT * FROM tbllogin ORDER BY usuarioultimologin" ElseIf orderBy = "datain" Then SQL = "SELECT * FROM tbllogin ORDER BY usuariodatain" ElseIf orderBy = "login" Then SQL = "SELECT * FROM tbllogin ORDER BY usuariologin" ElseIf orderBy = "ativo" Then SQL = "SELECT * FROM tbllogin ORDER BY usuarioativo DESC" Else orderBy = "Email" SQL = "SELECT * FROM tbllogin ORDER BY usuarioEmail" End If Set RS = Server.CreateObject("ADODB.Recordset") Dim colorchanger Dim color1 Dim color2 colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" dim intPage dim intPageCount dim intRecordCount If Request.QueryString("page") = "" Then intPage = 1 Else intPage = Request.QueryString("page") End If RS.CursorLocation = 3 RS.CursorType = 3 RS.ActiveConnection = Conn RS.Open SQL, Conn, 1, 3 RS.PageSize = 20 RS.CacheSize = RS.PageSize intPageCount = RS.PageCount intRecordCount = RS.RecordCount If NOT (RS.BOF AND RS.EOF) Then %> <% If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 If intRecordCount > 0 Then RS.AbsolutePage = intPage intStart = RS.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (RS.PageSize - 1) End if End If If intRecordCount > 0 Then For intRecord = 1 to RS.PageSize %> <% RS.MoveNext If colorchanger = 1 Then colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" Else colorchanger = 1 color1 = "#DAE3F0" color2 = "#C5D3E7" End If If RS.EOF Then Exit for Next %>

	1<%Else%><%=intPage%><%End If%>">Usuário	1<%Else%><%=intPage%><%End If%>">Senha	1<%Else%><%=intPage%><%End If%>">Nome	1<%Else%><%=intPage%><%End If%>">Email	1<%Else%><%=intPage%><%End If%>">Ativo	1<%Else%><%=intPage%><%End If%>">Útimo Login
">  ">	<%=RS("usuariologin")%>	<%=RS("usuariosenha")%>	<%=RS("usuarionome")%>	<%=RS("usuarioemail")%>	<%=RS("usuarioativo")%>	<%=RS("usuarioultimologin")%>
<%If cInt(intPage) > 1 Then%> << Anterior <%End If%> <%If cInt(intPage) < cInt(intPageCount) Then%> Próximo >> <%End If%>

<%End If Else%>

No momento não existem administradores cadastrados.

<%End If RS.close Set RS = Nothing Conn.close Set Conn = Nothing%>