 
<%   
    strGrade = TRIM(Request("grade"))
	strsubject = TRIM(Request("subject"))  
    strId=request("id")
   
 		   
     Set    MyOAASPObj = Server.CreateObject("YFSchoolOApro.YFSchoolDll")
     call   MyOAASPObj.DelTableRecord("Subjectvar","id",strId)
     set    MyOAASPObj=nothing	
	 
   response.redirect  "varzhang.asp?subject="&strsubject&"&grade="&strGrade
 %>