Buscador Avanzado

[Gabriel55]

Hola a todos:
Tengo un buscador avanzado con un campo llamado tipo (campo de texto), y una pagina de resultados con un juego de registros que filtra los resultados usando el valor del campo tipo:

<%
Dim rspropiedades
Dim rspropiedades_numRows

Set rspropiedades = Server.CreateObject("ADODB.Recordset")
rspropiedades.ActiveConnection = MM_conexpearl_STRING
rspropiedades.Source = "SELECT * FROM Propiedades WHERE Tipo = '" + Replace(rspropiedades__MMColParam, "'", "''") + "' ORDER BY Referencia ASC"
rspropiedades.CursorType = 0
rspropiedades.CursorLocation = 2
rspropiedades.LockType = 1
rspropiedades.Open()

rspropiedades_numRows = 0
%>

hasta aquí bien, pero ¿como puedo hacer para poner un valor llamado todos en un combo dentros de la pagina de busqueda y me de como resultados en la pagina de resultados todos los registros?.

UN SALUDO