|
|
|
 |
|
Home > Cargos
|
 |
|
|
<%if request("busca") = "ok" then%>
<%if request("area") = "todos" then%>
<%dim ObjAdoConnTod, StrSQLTod, RSTod
StrSQLTod = "SELECT * from tbs_Areas order by ordem"
Conecta ObjAdoConnTod, StrSQLTod, RSTod
if RSTod.EOF then
else
opcao = 0
do Until RSTod.EOF
%>
|
<%=RSTod("areas")%>
|
| Código |
Cargo |
<%dim ObjAdoConnTodC, StrSQLTodC, RSTodC
StrSQLTodC = "SELECT * from tbs_Cargos where area = '"& sBDTratarNumero(RSTod("id")) &"' order by codigo"
Conecta ObjAdoConnTodC, StrSQLTodC, RSTodC
if RSTodC.EOF then%>
|
Não há nenhum cargo cadastrado.
|
<%else
do Until RSTodC.EOF%>
|
" >
<%=RSTodC("codigo")%>
|
" >
<%=RSTodC("cargo")%>
|
<%
RSTodC.MoveNext()
loop
end if%>
|
<%
opcao = opcao+1
RSTod.MoveNext()
loop
end if
elseif request("area") = "area" then%>
<%dim ObjAdoConnC, StrSQLC, RSC
StrSQLC= "SELECT * from tbs_Areas where id = "& sBDTratarNumero(request("cargos"))&""
Conecta ObjAdoConnC, StrSQLC, RSC
if RSC.EOF then
else
%>
|
<%=RSC("areas")%>
|
| Código |
Cargo |
<%dim ObjAdoConnCa, StrSQLCa, RSCa
StrSQLCa = "SELECT * from tbs_Cargos where area = '"& sBDTratarNumero(RSC("id")) &"' order by codigo"
Conecta ObjAdoConnCa, StrSQLCa, RSCa
if RSCa.EOF then%>
|
Não há nenhum cargo cadastrado.
|
<%else
do Until RSCa.EOF%>
|
">
<%=RSCa("codigo")%>
|
" class="TITdestaque" >
<%=RSCa("cargo")%>
|
<%
RSCa.MoveNext()
loop
end if
end if%>
|
<%end if
end if%>
|
|
» imprimir » topo da página |
|
|