麻烦帮忙看看要怎么改才能解决，谢谢：）
--------------------------------------------------------------------------
出错的代码(/house/yingqing.asp, 第 77 行)：
<%
sql="select * from " & request("ausein") & " where 租售 like '" & request("zushou") & "%' "

select case request("mianji")
     case "不论"
         sql=sql&""
         case "40"
         sql=sql& "and 建筑面积 >=40 and 建筑面积<=60 "
         case "60"
         sql=sql& "and 建筑面积 >=60 and 建筑面积<=80 "
         case "80"
         sql= sql & "and 建筑面积>=80 and 建筑面积 <= 100 "
         case "100"
         sql=sql& "and 建筑面积 >=100 and 建筑面积<=120 "
         case "120"
         sql=sql& "and 建筑面积 >=120 and 建筑面积<=140 "
         case "140"
         sql=sql& "and 建筑面积 >=140 and 建筑面积<=160 "
         case "160"
         sql=sql& "and 建筑面积 >=160 "
         case else
         sql=sql&" "
     end select
    if request("zushou")="租" then
         select case request("zujia")
         case "不论"
         sql=sql&""
         case "500"
         sql=sql& "and 月租价>=500 and 月租价<=800 "
         case "800"
         sql=sql & "and 月租价>=800 and 月租价<=1200 "
         case "1200"
         sql=sql & "and 月租价>=1200 and 月租价<=1600 "
     case "1600"
         sql=sql& "and 月租价>1600 "
        End Select
        
    Else
        Select Case request("shoujia")
         case "不论"
         sql=sql&""
        
         case "20"
         sql=sql& "and 总售价>=20 and 总售价<=30 "
        
         case "30"
         sql=sql & "and 总售价>=30 and 总售价<=40 "
     case "40"
         sql=sql & "and 总售价>=40 and 总售价<=50 "
         case "50"
         sql=sql& "and 总售价>=50 "
        End Select
End if
if request("fangxing")="无房形" or request("fangxing")=""then
     sql=sql&""
     else
     sql=sql& "and 房形 like ('" & request("fangxing") & "') "
     End if
     If request("quyu")="不论" or request("quyu")="" Then
     sql=sql&""
     Else
     sql=sql & "and 区域 like ('" & request("quyu") & "') "
     End If
if request("zx")<>"" then
sql=sql&"and 装修 like ('"&request("zx")&"')"
End if
     sql=sql&"and 物业用途 like '" & request("yongtu") &"%' "
sql=sql&" order by 时间 DESC"
     'response.write sql
    
    filepath=server.mappath("housedatabase.mdb")
set oconn1=server.createobject("adodb.connection")
oConn1.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & filepath
Set oRs1=Server.CreateObject("ADODB.Recordset")
ors1.open sql,oconn1
if not ors1.eof then %>












<% while not ors1.eof %>












<%oRs1.movenext
wend%>

<% if request("ausein")="house" then      response.write "物业编号"          else          response.write "需求编号"          end if %>	区域	物业用途	物业名称	房型	面积M2	价格(元）	装修	<%     If request("ausein")="house" then      response.write "我要看房"     else      response.write "我要推荐"     end if %>
<% if request("ausein")="house" then %>     <%=oRs1("houseid")%> <% else %>     <% =ors1("needid")%>     <% end if %>	<%=oRs1("区域")%>	<% =oRs1("物业用途") %>	<%=oRs1("物业名称")%>	<%=oRs1("房形")%>	<%=oRs1("建筑面积")%>	<% if ors1("租售")="租" then %> <%=ors1("月租价") %>元/月 <% Else %> <%=oRs1("总售价")%> 万元 <% End if%>	<%=oRs1("装修")%>	<% if request("ausein")="house" then %>     ">看房     <% else %>     ">推荐     <% end if %>

<% else
response.write "无数据！"
end if
     %>

--------------------------------------------------------------------------
在这页里的链接点任何一个都会报错(house/czxx01.asp)：

图片如下：


--------------------------------------------------------------------------
asp源文件(324K)：

相关文件：点这儿打开