Editing: rp_add_parcurri.asp.bak

<% Response.write "bbb" date1=left(date_begin,2) month1=mid(date_begin,4,2) year_b4=right(date_begin,4) if date1="1" then date1="01" elseif date1="2" then date1="02" elseif date1="3" then date1="03" elseif date1="4" then date1="04" elseif date1="5" then date1="05" elseif date1="6" then date1="06" elseif date1="7" then date1="07" elseif date1="8" then date1="08" elseif date1="9" then date1="09" end if if month1="1" then month1="01" elseif month1="2" then month1="02" elseif month1="3" then month1="03" elseif month1="4" then month1="04" elseif month1="5" then month1="05" elseif month1="6" then month1="06" elseif month1="7" then month1="07" elseif month1="8" then month1="08" elseif month1="9" then month1="09" end If date_begin=year_b4+month1+date1 date_create=Now() 'activiti_hours=request.form("activiti_hours") sqlt="select * from rp_par_curri where id_report='"&id_activity&"'" Set orst=server.createobject("adodb.recordset") orst.open sqlt,conn,1,3 'Response.write "bb" Response.write sqlt If Not orst.eof Then sqlt1="update rp_par_curri set date_create='"&date_create&"',date_begin='"&date_begin&"', id_status='1',d_begin='"&date1&"',m_begin='"&month1&"',y_begin='"&year_b4&"' 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_par_curri (id_report, id_status, date_begin, d_begin, m_begin, y_begin, date_create) values("&id_activity&",'1' , '"&date_begin&"','"&date1&"', '"&month1&"', '"&year_b4&"','"&date_create&"')" Response.write sqlt1 Set orst1=server.createobject("adodb.recordset") orst1.open sqlt1,conn,1,3 End if %>