上传项目到svn:请各位大哥帮我看下错在哪里了。谢谢呀

<%
dim xm,zjys,year3,month3,day3,year4,month4,day4,date3,date4,date5
xm=request("xm")
zjys=request("zjys")

year3=request("year3")
month3=request("month3")
day3=request("day3")

year4=request("year4")
month4=request("month4")
day4=request("day4")

date3=request("year3") & "/" & request("month3")& "/" &request("day3")
date4=request("year4") & "/" & request("month4")& "/" &request("day4")

dim conn,connstr,date1,date2
on error resume next
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr

'response.write(month(date))

'response.write(houseid & "<br>" & area & "<br>" & housetype & "<br>" & ownername & "<br>" & ownertel & "<br>" & payamount & "<br>" & lesseename & "<br>" & lesseetel & "<br>" & year1 & "-" & month1 & "-" & day1 & "<br>" & year2 & "-" & month2 & "-" & day2 & "<br>" & rent & "<br>" & deposit & "<br>" & "<br>" & ischeck & "<br>" & agentname & "<br>" & undertaker)
'checknum(area)

'date5=datediff("m",date1,date3) mod 3
'date6=day(date1)
'date7=day(date3)

set rs=server.createobject("adodb.recordset")
sql="select * from house2 where "
if xm<>"" then
sql=sql & "xm='" & xm & "' and "
End if
if zjys <>"" then
sql=sql & "zjys='" & zjys & "' and "
End if
'if year1<>"" and month1<>"" and day1<>"" then sql=sql & "datediff(month,date1,date3) mod 3=0 and day(date1)=day(date3) and "

if year3<>"" and month3<>"" and day3<>"" then
sql="select year1,month1,day1,year2,month2,day2 from house2"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
date1=rs("year1") & "/" & rs("month1")& "/" &rs("day1")

rs.movenext
loop
rs.close
set rs=nothing
sql=sql & "datediff(m,"&date1&","&date3&")=3 and "
end if

if right(sql,5)="where" then
sql=left(sql,len(sql)-5)
End if
if right(sql,3)="and" then
'sql=left(sql,len(sql)-3)
End if

sql=sql & "1=1"
response.write(sql)

'response.write date1&"<br>"
'response.write date2&"<br>"
'page=clng(request("page"))
rs.open sql,conn,1,1
If Not rs.eof And Not rs.bof then
do while not rs.eof
%>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td><%=rs("xm")%></td>
<td><%=rs("gj")%></td>
<td><%=rs("dh")%></td>
<td><%=rs("year1")%>年<%=rs("month1")%>月<%=rs("day1")%>日</td>
<td><%=rs("year2")%>年<%=rs("month2")%>月<%=rs("day2")%>日</td>
<td><a href="details.asp?id=<%=rs("id")%>">详细信息</a>  <a href="edit.asp?id=<%=rs("id")%>">编辑</a>  <a href="delete.asp?id=<%=rs("id")%>" onClick="return ConfirmDel();">删除</a></td>
</tr>
<%
rs.movenext
Loop
End if
rs.close
set rs=nothing
%>