//primero llenas un arreglo de javascript con asp
<script language="JavaScript" type="text/JavaScript">
function llena_lista(){
var prog=new Array();
<%
do while not rs.eof%>
//prog[<%=k%>]=[<%=k%>,"<%=rs("id_prog")%>",<%=rs("id_estado")%>," <%=rs("dsc_estado")%>","<%=rs("id_prog")%>"+" "+"<%=rs("dsl_programa")%>"];
<%
k=k+1
rsextens.movenext
loop
%>
prog[<%=k%>]=[<%=k%>,"TODOS",0,"TODOS","TODOS"];
//Ya esta lleno el arreglo con asp
//lo que resta es javascript
// vacias primero tu combobox que vas a llenar
document.frm2.pg_estado.length=1;
//recorres todo el arreglo preguntando por el id que seleccionaste
for(i=0 ; i<prog.length ; i++){
//si se cumple que el id que seleccionaste es = auno de tu arreglo lo agregas a la lista
if(prog[i][1]==document.frm2.adm_prog.options[document.frm2.adm_prog.selectedIndex].value){
document.frm2.pg_estado.length++;
document.frm2.pg_estado.options[document.frm2.pg_estado.length-1].value=prog[i][2];
document.frm2.pg_estado.options[document.frm2.pg_estado.length-1].text=prog[i][3];
}
}
y al final
en tu select pones el evento de javascript onChange="funcion de javascript();"
bueno espero y le entiendas al código jejeje
por cierto esto es bueno cuando no son muchos registros ya que le mandas toda la tabla al cliente, para evitar eso debes de recargar la pagina una vez seleccionado la categoria o usar AJAX para recargar solo el combo
bye
saludos