[Resolvido]  com <select option>

<%
Set rsAtividade=Server.CreateObject("ADODB.Recordset")
rsAtividade.CursorLocation = 3
rsAtividade.CursorType = 1
rsAtividade.LockType = 3
sql = "SELECT * FROM tp_atividades WHERE id_tpatividades="&tp_atividade
rsAtividade.Open sql, conexao
%>

<tr>
<td>Tipo Atividade:</td>
<td>
<select name="tp_atividades">
<option value=""></option>

<%do while not rsAtividade.eof%>

<option value="<%=rsAtividade("id_tpatividades")%>" selected><%=rsAtividade("nome_tpatividade")%></option>
 <%rsAtividade.movenext
 loop
 %>
</select>Ola , Bom dia a todos.Com esse código acima só estou conseguindo visualizar o nome do departamento cadastrado no mdb, como posso fazer para ele mostrar a lista dos outros departamentos também?? tipo ele vem selecionado só o departamento "2" que foi o que ele cadastrou, mas gostaria que mostrasse os outros abaixo,caso ele queira mudar de departamento. esqueci como se faz isso, alguem podeia me ajudar?