searchhouse.asp

this a program about talent web database used asp and VB.

<%
htype=trim(Request.Form("htype"))
area=trim(Request.Form("area"))
district=trim(Request.Form("district"))
room=trim(Request.Form("room"))
hall=trim(Request.Form("hall"))
price=trim(Request.Form("price"))
select case htype
case "新房"
Response.Redirect "searchnhouse.asp?area=" & area & "&district=" & district & "&price=" & price
case "二手房"
Response.Redirect "searchshouse.asp?area=" & area & "&district=" & district & "&room=" & room & "&hall=" & hall & "&price=" & price
case "租房"
Response.Redirect "searchlhouse.asp?area=" & area & "&district=" & district & "&room=" & room & "&hall=" & hall & "&price=" & price
end select
%>