I have the following code ,but data is not getting updated to database.please help
set NewConnx = server.CreateObject("ADODB.Connection")
NewConnx.Open Session("MyConnection")
set NewCommandx1 = server.CreateObject ("ADODB.Command")
set NewCommandx1.ActiveConnection = NewConnx
'set rsNewCommandx = Server.CreateObject("ADODB.Recordset")
NewCommandx1.CommandText = "pr_save_re_setup"
NewCommandx1.CommandType = 4
NewCommandx1.Parameters.Append NewCommandx1.CreateParameter("p_in_ivr_plan_num",adVarChar,adParamInput)
NewCommandx1.Parameters.Append NewCommandx1.CreateParameter("p_in_activate_re_dt_calc",adChar,adParamInput)
NewCommandx1.Parameters.Append NewCommandx1.CreateParameter("p_in_re_elig_dt_criteria",adInteger,adParamInput)
NewCommandx1.Parameters.Append NewCommandx1.CreateParameter("p_in_re_elig_yrs_service",adInteger,adParamInput)
NewCommandx1.Parameters.Append NewCommandx1.CreateParameter("p_in_re_rt_opt_grnt_level",adChar,adParamInput)
NewCommandx1.Parameters.Append NewCommandx1.CreateParameter("p_in_activate_re_tax_calc",adChar,adParamInput)
NewCommandx1.Parameters.Append NewCommandx1.CreateParameter("p_out_error_cur",adVariant,adParamOutput)
NewCommandx1("p_in_ivr_plan_num") = txtPlan
NewCommandx1("p_in_activate_re_dt_calc") = chkRetEligDateCal
NewCommandx1("p_in_re_elig_dt_criteria") = 1
NewCommandx1("p_in_re_elig_yrs_service") = 1
NewCommandx1("p_in_re_rt_opt_grnt_level") = radO2andO3Record
NewCommandx1("p_in_activate_re_tax_calc") = chkRetEligTaxCal
NewConnx.BeginTrans()
NewCommandx1.Execute
if Err.number > 0 then
NewConnx.RollbackTrans()
else
NewConnx.CommitTrans()
end if
NewConnx.close
set NewConnx = nothing
set NewCommandx1 = nothing
Stored procedure >>
PROCEDURE PR_SAVE_RE_SETUP(p_in_ivr_plan_num VARCHAR2,
p_in_activate_re_dt_calc tb_fc_compy_ext.activate_re_dt_calc%TYPE
DEFAULT 'N',
-- p_in_activate_re_dt tb_fc_compy_ext.activate_re_dt%TYPE,
p_in_re_elig_dt_criteria tb_fc_compy_ext.re_elig_dt_criteria%TYPE,
p_in_re_elig_yrs_service tb_fc_compy_ext.re_elig_yrs_service%TYPE,
p_in_re_rt_opt_grnt_level tb_fc_compy_ext.re_rt_opt_grnt_level%TYPE,
p_in_activate_re_tax_calc tb_fc_compy_ext.activate_re_tax_calc%TYPE DEFAULT 'N',
p_out_error_cur OUT err_cursor)
IS
v_err_cd NUMBER(12) := 0;
v_err_msg VARCHAR2(4000);
BEGIN
Pr_Xop_Log_Re_Errors('Before update tb_fc_compy_ext');
UPDATE TB_FC_COMPY_EXT SET activate_re_dt_calc = p_in_activate_re_dt_calc,
activate_re_dt = sysdate,
re_elig_dt_criteria = p_in_re_elig_dt_criteria,
re_elig_yrs_service = p_in_re_elig_yrs_service,
re_rt_opt_grnt_level = p_in_re_rt_opt_grnt_level,
activate_re_tax_calc = p_in_activate_re_tax_calc
WHERE ivr_plan_num = p_in_ivr_plan_num;COMMIT;
Pr_Xop_Log_Re_Errors('Updated in Tb_fc_compy_ext');
OPEN p_out_error_cur FOR SELECT 0 code, 'SUCCESS' message FROM dual;
EXCEPTION
WHEN OTHERS THEN
v_err_cd := SQLCODE;
v_err_msg := SQLERRM;
OPEN p_out_error_cur FOR SELECT v_err_cd code, v_err_msg message FROM DUAL;
Pr_Xop_Log_Re_Errors('CRITICAL ERROR!Code'||SQLCODE||':'||
SQLERRM||' AT '||USER||
'.PK_XOP_RE.PR_SAVE_RE_SETUP');
END
PR_SAVE_RE_SETUP;