Editing: rp_add_grd.asp

<% date_create=Now() sqlt="select * from rp_grd where id_report='"&id_activity&"'" Set orst=server.createobject("adodb.recordset") orst.open sqlt,conn,1,3 'Response.write sqlt If Not orst.eof Then sqlt1="update rp_grd set id_status='1', date_create='"&date_create&"', id_grade="&id_grade&" where id_report="&id_activity&"" Set orst1=server.createobject("adodb.recordset") orst1.open sqlt1,conn,1,3 'Response.write sqlt1 Else sqlt1="insert into rp_grd (id_report, id_status,date_create,id_grade) values("&id_activity&",'1', '"&date_create&"',"&id_grade&")" ' Response.write sqlt1 Set orst1=server.createobject("adodb.recordset") orst1.open sqlt1,conn,1,3 End if %>