Editing: rp_check_status.asp.bak

<% ' rp_thesis_progress rp_qe_test rp_exitexam 11 3 4 = id_activity 'id_table=ors_plan("id_table") sqlcheck="select * from rp_table where id_table='"&id_table&"'" Set orscheck=server.createobject("adodb.recordset") orscheck.open sqlcheck,conn,1,3 Response.write sqlcheck If Not orscheck.eof Then table_name=orscheck("table_name") Response.write orscheck("table_name") If id_table=11 Or id_table = 3 Or id_table = 4 Or id_table=1 then 'sqlcheck1="select * from "&table_name&" where id_activity="&ors_plan("id_activity")&"" sqlcheck1="select * from "&table_name&" where id_activity="&id_activity&"" Set orscheck1=server.createobject("adodb.recordset") 'Response.write sqlcheck1 orscheck1.open sqlcheck1,conn,1,3 Else sqlcheck1="select * from "&table_name&" where id_report='"&id_activity&"'" 'sqlcheck1="select * from "&table_name&" where id_report='"&ors_plan("id_activity")&"'" Set orscheck1=server.createobject("adodb.recordset") orscheck1.open sqlcheck1,conn,1,3 End If 'Response.write sqlcheck1 'If Not orscheck1. eof then End If sqldc="select * from progress_report_thesis where id_progress_report ='"&ors_ac("id_progress_report")&"'" Set orsdc=server.createobject("adodb.recordset") orsdc.open sqldc,conn,1,3 If Not orsdc.eof Then dateend1=orsdc("dateend") datebegin1=orsdc("datebegin") datepend1=orsdc("date_plan_end") End if %>