<!--#include file="../SQLconn.asp"-->
<% 

    sendto=request("sendto")
	qdtype=request("kqtype")
	kqdate=request("kqdate")
    zhuangtai=request("zhuangtai")
	
	
	  '生产新纪录
	    curdate=kqdate
	    Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
		MyOAASPObj.KaoqinNew(curdate)
	    set MyOAASPObj=nothing
   
   
    
dim mysendto1
mysendto1=split(sendto,"|",-1,1)
for each sendtoinf in mysendto1
      set rscheck=server.createobject("adodb.recordset")
      rscheckSQL="select * from teachers where TName ='"&sendtoinf&"'" 
      rscheck.open rscheckSQL,conn,1,3
	  if  rscheck.eof and  rscheck.bof then
	      response.redirect   "../email/FindError.asp?tname="&sendtoinf
	  end if 
next



'标记发送文件给个人
 
dim mysendto
mysendto=split(sendto,"|",-1,1)
for each sendtoinf in mysendto

set rssended=server.createobject("adodb.recordset")
rssendedsql="select * from kaoqin where TName ='"&sendtoinf&"'  and qdtype ='"&qdtype&"'  and curdate ='"&kqdate&"'" 
rssended.open rssendedsql,conn,1,3


    rssended.edit
    rssended("zhuangtai")=zhuangtai
	rssended("chuli")=rssended("chuli")+"->"+zhuangtai
	rssended("chuliren")=rssended("chuliren")+"->"+request.cookies("tname")
    rssended.update
next


rssended.close
rsmessage.close
response.redirect   "Alljilu.asp"
%>
   

 <%=sendtoinf%> <%=qdtype%> <%=kqdate%> <%=zhuangtai%> 