错在那?
yjzz 2001-09-04 05:04:14 <%
dim sql
ren=request("ren")
nian=request("nian")
yue=request("yue")
ri=request("ri")
%>
<%
if ren<>"" then
if nian<>"" and yue<>"" and ri<>"" then
sql="select * from 查询 where 发布人='"+ren+"' and 日期 ='"+nian+"-"+yue+"-"+ri+"'"
session("sql")=sql
response redirect "chaxun2.asp"
end if
if nian<>"" and yue<>"" and ri="" then
sql="select * from 查询 where 发布人='"+ren+"' and 日期 like'"+nian+"-"+yue+"*'"
session("sql")=sql
response redirect "chaxun2.asp"
end if
if nian<>"" and yue="" and ri="" then
sql="select * from 查询 where 发布人='"+ren+"' 日期 like'"+nian+"*'"
session("sql")=sql
response redirect "chaxun2.asp"
end if
end if
%>
-------------------------------------------------------------------------
为什么报错?
Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/chaxun1.asp, 行13
response redirect "chaxun2.asp"
------------------^
请各位之指教
谢了!