Ordenar Recordset

[Gdias 0]

Salve amigos,

 

Tenho uma tabela de usuários e seus cargos, são 5 cargos diferentes e gostaria que fosse listado todos os usuários com cargo 1 depois os com cargo 2 e assimpor diante. A tebela tinha que ser mais ou menos assim

 

NOME | MATRICULA | RESPONSAVEL POR

_______________________________________________________

 

GERENTE DE TECNOLOGIA

 

Fuano de tal | 123456 | CPD

_______________________________________________________

Siclano de tal | 654321 | CPD2

_______________________________________________________

Beltrano de tal | 987456 | CPD3

_______________________________________________________

 

COOREDANDOR

 

José das Couves | 123456 | Seila1

_______________________________________________________

João das Couves | 654789 | Seila2

_______________________________________________________

 

 

No código (abaixo) o cargo está sendo impresso acima de cada nome ao invés de formar grupos como no exemplo acima.

 

  <%                set objRS1 = createobject("adodb.recordset")     set objRS1.activeconnection = con_ger_txt         objRS1.cursortype = 3         SQL1 = "select * From TAB_GESTAO where PK_ID_CONTEUDO = '"&ID_CONTEUDO&"' order by FK_ID_CARGO, NM_MEMBRO ASC"         objRS1.Open SQL1, ,1,2       %>       <table width="100%" border="0" cellspacing="2" cellpadding="4">    <tr bgcolor="WhiteSmoke">     <td width="50%"><b>Nome</b></td>     <td width="20%"><b>Matricula</b></td>     <td width="30%"><b>Responsavel por</b></td>    </tr>   </table>    <%         contador = 0      IntContador = 1                while not objRS1.eof      IntContador = intContador + 1        intParidade = intContador / 2          If len(intparidade) < 2 then             StrCorTD = "#F5F5F5"        Else               StrCorTD = "#dcdcdc"        End If               if not objRS1.eof then    %>      <table width="100%" border="0" cellspacing="2" cellpadding="2">    <tr align="center" bgcolor="WhiteSmoke" class="estrutura">	<%   if objRS1("FK_ID_CARGO") = "1" then      Response.Write "<td><b>G E R E N T E  D E  T E C N O L O G I A</b></td>"   elseif objRS1("FK_ID_CARGO") = "2" then   Response.Write "<td><b>C O O R D E N A D O R</b></td>"   elseif objRS1("FK_ID_CARGO") = "3" then   Response.Write "<td><b>S U P E R V I S O R</b></td>"   elseif objRS1("FK_ID_CARGO") = "4" then   Response.Write "<td><b>L Í D E R  D E  P R O J E T O S</b></td>"   elseif objRS1("FK_ID_CARGO") = "5" then   Response.Write "<td><b>E S P E C I A L I S T A</b></td>"   end if	%>    </tr>   </table>           <%        end if                %>   <table width="100%" border="0" cellspacing="2" cellpadding="4">    <tr bgcolor="<%= StrCorTD %>">      <td width="50%"><%=objRS1("NM_Membro")%></td>     <td width="20%"><%=objRS1("COD_USER_GESTAO")%></td>     <td width="30%"><%=objRS1("QL_REPRESENTACAO")%></td>    </tr>    <tr>     <td colspan="10" bgcolor="MidnightBlue" height="1">    </td>    </tr>     <%       contador = contador + 1       objRS1.movenext       wend    %>     </table>

alguém pode dar um help?

desde já agradeço.

 

abraços,

Gustavo

[Mário Monteiro 179]

bem cara você não pode colocar o cargo diretamente assim

 

tem que usar estruturas condicionais pra verificar se ainda é o mesmo cargo

 

um exemplo

 

[tr][/tr][tr][/tr]

ASP	Cargo = "" WHILE NOT RS.EOF Grupo = RS("CARGO") Nome = RS("NOME")   IF Grupo <> Cargo THEN response.write Grupo & "<br>" Cargo = Grupo END IF response.write Nome & "<br>" WEND