代码出现的错误是

假如我数据库里面没有东西
我加这个 不会出现错误
if rs.bof and rs.eof then
response.write "目前还没有发表任何资料"
Response.end
但是缺点是，下面的添加程序就不能在运行了
如果我不加 Response.end，程序就会发生错误
以下是我的代码
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from sbzs",conn,1,1
if rs.bof and rs.eof then
response.write "目前还没有发表任何资料"
Response.end
else
dim j
if request("page")="" then
curpage=1
else
curpage=request("page")
end if
if not IsNumeric(curpage) then
response.Write("参数不对!")
response.end
end if
rs.pagesize=6 '******************设置每页显示文章数目***********************
dim totalput
totalPut=rs.recordcount
if curpage<1 then
curpage=1
end if
if (curpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
curpage= totalPut \ MaxPerPage
else
curpage= totalPut \ MaxPerPage + 1
end if
end if
rs.absolutepage=curpage
%>
第二个问题是
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from sbzs",conn,1,3
rs.addnew
rs("sbmc")=trim(request("sbmc"))

这个是我的添加进数据库的代码，我想 如果这个sbmc字段是1，和数据的整个sbmc字段，其中的一个相等，就提示不能相同，然后返回` 问题补充：第三个问题 case "del" conn.execute "delete from sbzs where id="&id response.Redirect "fbsb.asp" response.end end select 这是我删除 数据的代码，我想如果但是，只是删除数据，里面还有图片路径，我想一起把图片也删除了， 具体的是 如果数据库是 图片字段是 1.jpg 但是删除的只是数据，我想一起把 1.jpg 这个图片也删除了

if rs.bof and rs.eof then
response.write "目前还没有发表任何资料"
Response.end
但是缺点是，下面的添加程序就不能在运行了
如果我不加 Response.end，程序就会发生错误
以下是我的代码

if rs.bof and rs.eof then 把这里的and改为 or