程序调试中的问题

<!--#include file="conn.inc"-->
<%
dim i
dim j
Dim k
Dim subject(100)
id=request("id")
id=split(id,",")
i=ubound(id)
for j=0 to i
conn.begintrans
1.conn.execute "delete from exam_database where subject in (Select subject from  exam_subject where id="& cint(id(j))&")"
2.conn.execute "delete from exam_subject where id="& cint(id(j))

Next
response.redirect "adminsubject.asp"
%>
请问问什么光有1时，会删除表exam_database中的内容，1，2同时出现是只会删除exam_subject 中的内容，表exam_database 内容不会发生任何变化？
9月2日 18：00提问