多表删除记录，有调试代码？但是在执行到第三个表时怎么就出错了！希望大家帮忙

[xjd5555]

<%
response.write email
response.write pwd
sql="select * FROM zp_email where email='"&email&"' and pwd='"&pwd&"'"
oRs1.source=sql
oRs1.open

if not oRs1.eof then
cc=1
sql1="DELETE FROM zp_email where email='"&email&"' and pwd='"&pwd&"'"
opendb conna,orsz,sql1
else
response.write "你没有订阅我们的邮件！"
end if
%>

<%
response.write email
response.write pwd
sql2="select * FROM zx_email where email='"&email&"' and pwd='"&pwd&"'"
oRs2.source=sql2
oRs2.open

if not oRs2.eof then
cc=1
sql3="DELETE FROM zx_email where email='"&email&"' and pwd='"&pwd&"'"
opendb conna,orsz,sql3
else
response.write "你没有订阅我们的邮件！"
end if
%>

<%
response.write email
response.write pwd
sql4="select * FROM qz_email where email='"&email&"' and pwd='"&pwd&"'"
oRs4.source=sql4
oRs4.open 这里提示出错

if not oRs4.eof then
cc=1
sql5="DELETE FROM qz_email where email='"&email&"' and pwd='"&pwd&"'"
opendb conna,orsz,sql5
else
response.write "你没有订阅我们的邮件！"
end if
%>

执行到第三个表打开的时候出现错误，错误的提示是
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/email/del.asp，行52
，请大家说明一下原因好吗？
顺便还想问一下多表删除记录还有其他更有效的办法吗？
三个表都不关联！

[wpmsoft]

在第一时间，将不再使用的数据集啦、链接啦统统地关闭掉，释放掉资源，如
rs.close
set rs=nothing
等等。

另外，可以考虑把你的代码简化一下，用类来做，这样子代码的可读性及可维护性都要大大提高，ASP3.0支持类。

多表删除只能这样子，当然可以用数据库的存储过程来提高效率了。

[lbd8848]

问题应该出在email或pwd变量上
请试着response.write ("select * FROM qz_email where email='"&email&"' and pwd='"&pwd&"'")
看看语句是否正确

[xjd5555]

这两个字段在这三个表里都有，我是想如果找不到的话输出提示！