duplicate filter in ado database

[pechita2]

Please , i am tried to duplicate the filter of this code.But it not working. Probably the code is not correct. Can someone tell me where is wrong?Sorry I am totally beginner!!!thanks.

<%

dim Type1
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\pechita2\db\login.mdb")

set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT DISTINCT Type FROM property ORDER BY Type"
sql="SELECT DISTINCT Type FROM property ORDER BY Area"
rs.Open sql,conn

Type1=request.form("Type")
Area=request.form("Area")
%>


Choose Type 
<%  do until rs.EOF
    response.write("")
    response.write(rs.fields("Type"))
    rs.MoveNext
loop
rs.Close
set rs=Nothing %>






Choose Type 
<%  do until rs.EOF
    response.write("")
    response.write(rs.fields("Area"))
    rs.MoveNext
loop
rs.Close
set rs=Nothing %>






<%
if Type1<>"" then
   sql="SELECT propertyref,Area,Type,Price  FROM property WHERE Type='" & Type1 & "'"
   set rs=Server.CreateObject("ADODB.Recordset")
   rs.Open sql,conn

if Area<>"" then
   sql="SELECT propertyref,Area,Type,Price  FROM property WHERE Area='" & Area & "'"
   set rs=Server.CreateObject("ADODB.Recordset")
   rs.Open sql,conn
%>
%>
   
<%
do until rs.EOF
   response.write("")
   response.write("")
   response.write("")
   response.write("")
   response.write("")
   response.write("")
   rs.MoveNext
loop
rs.close
conn.Close
set rs=Nothing
set conn=Nothing%>

   

     
propertyref
     
Area
     
Type
     
Price
   
" & rs.fields("propertyref") & "
" & rs.fields("Area") & "
" & rs.fields("Type") & "
" & rs.fields("Price") & "
<%  end if %>