<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>
<%
kcid=request("kcid")
id=request("id")
 
id=split(id,",")
i=ubound(id)
 
for j=0 to i
  sql="select  * from tbchapter where kcid="&kcid&" and  chapter="& cint(id(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
    do while not rs.eof  
  rs.delete
  rs.update
  rs.movenext
  loop
  
  
  
  
  sql1="select  * from tbistest where kcid="&kcid&" and  chapter="& cint(id(j))
   set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
      do while not rs1.eof  
  rs1.delete
  rs1.update
  rs1.movenext
  loop

  

 
sqldel1="select  userdata.* from userdata,tbtk  where userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&"   and  tbtk.chapter="& cint(id(j))
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2

do while  not rsdel1.eof 
    
    if rsdel1("isread")=1 then
        sqldel2="SELECT  *  from userdataread  where    tmid="&rsdel1("tmid")&"   order by  readid "
		set rsdel2=server.createobject("adodb.recordset")
		rsdel2.open sqldel2,conn,3,2
		
		do while  not rsdel2.eof 
             rsdel2.delete
             rsdel2.update
             rsdel2.movenext
        loop
		
    end if
 
    rsdel1.delete
    rsdel1.update

rsdel1.movenext

loop

 sqldel11="select  * from tbtk  where  kcid="&kcid&"  and  tbtk.chapter="& cint(id(j))
set rsdel11=server.createobject("adodb.recordset")
rsdel11.open sqldel11,conn,3,2

do while  not rsdel11.eof 
    
    if rsdel11("isread")=1 then
        sqldel12="SELECT  *  from tbread  where    tmid="&rsdel11("tmid")&"  "
		set rsdel12=server.createobject("adodb.recordset")
		rsdel12.open sqldel12,conn,3,2
		
		do while  not rsdel12.eof 
             rsdel12.delete
             rsdel12.update
             rsdel12.movenext
        loop
		
    end if
 
    rsdel11.delete
    rsdel11.update

rsdel11.movenext

loop
  
 
next

response.redirect "adminsubjectchapter.asp?kcid="&kcid
%>