<%@ Language=VBScript.Encode %>
<%Response.Expires=0%>
<!-- #include file="../share/connectdb.asp" -->
<%call checkqx("0803")%> 
<%
	conn.begintrans
	dim i
	for each i in Request.Form("chksc")
	    conn.execute "delete from oa_jbmx where sqxh=" & i
	    conn.execute "delete from oa_sqjbxx where sqxh=" & i
	    conn.execute "delete from oa_spjl where sqxh=" & i
	next
	conn.committrans
  set rs=nothing
  conn.close
  set conn=nothing
	Response.Redirect "kq_jbsq.asp"
%>