CheckBox enviar dados.

Olá pessoal, 

Por favor, a dias estou tentando criar uma Consulta com CHECKBOX, e tenho conseguido apenas parte do serviço. 

É assim:

1° Página exibe os "Tipos de Imóveis" em CheckBox, que ao escolher os nomes e clicar vai para a Página 2.

2º Página, mostra os "Tipos de Imóveis" da Página anterior e Lista os "Bairros" em CheckBox referente a consulta anterior.

3° Página, mostra as Consultas das páginas anteriores e Exibe os "Valores" referente a Página anterior.

4° Página, é exibido todos os imóveis referente a essa busca.

 Até o momento não consegui sair da 1° Página, jás fiz várias buscas mas sem exito.

Segue o Código da 1° Página para que puder me orientar a Fazer a 2° Página, obrigado.

<% 

Dim lista, chk_id, lista1

set lista= dados.Execute("select tipo_imovel from imoveis WHERE id AND cad_ok='S' GROUP BY tipo_imovel")

 

if not lista.EOF then 

While not lista.EOF

 

Set lista1 = dados.Execute("SELECT * FROM TipoImovel WHERE id=" & lista("tipo_imovel"))

 

chk_id = lista1("tipo")

%>  

 

<div id="menuCheck" style="width: 300px; text-align:left">     

    

<form name="check" id="check" action="imoveis_listaTipo.asp" method="post">

 

<div align="left">

<a href="javascript:selecionar(<%=lista1("id")%>);"><input type="checkbox" name="tipo_imovel" value="<%=lista1("tipo")%>"> <%=lista1("tipo")%></a>

</div>

 

<% 

lista.movenext 

wend 

End if 

%> 

 

</form>

</div> <!--menuCheck -->

<input class="botao" type="button" value="Enviar" onclick="javascript:check.submit()"> 

 

</td>

 

<%

lista.close 

Set lista=Nothing 

%> 

Se alguém tiver alguma ajuda será bem vinda.

Att,

William