کمک برای رفع نقص کد

[kavehYn]

سلام دوستان
من کدی به شرح ذیل نوشته ام

Dim id = Trim(Request("txt_ID1"))
Dim str1 AsString

Dim Status AsInteger

Try

If OPt_Ok.Checked = TrueThen

Status = 1
Else

Status = 0
EndIf

cn = DbFunc.Instance.OPenConnection()
str1 = "Update " + TableName + " Set Status =" + Str(Status) + " where ID =" + id
DbFunc.Instance.ExecuteSql(cn, str1)
str1 = "Frm_LicenseConfirmation.aspx?ID=" + id
Response.Redirect(str1, True)
ExitSub

Catch ex As Exception
(Response.Redirect("Frm_ErrorHandler.aspx,True)
EndTry


این کد یک پارامتر ID دارد که آنرا دریافت میکند و رکورد متناظر آن در بانک اطلاعاتی را Updte میکند و بعد به صفحه دیگری میرود که در آنجا مشخصات همان رکورد از بانک اطلاعاتی خوانده شده و به کاربر نمایش داده میشود .
مشکل من این است که اگر دستورات بعد از Catch را پاک کنم تمام کد بطور کامل اجرا میشود ولی اگر این دستورات را پاک نکنم برنامه با خطای Procedure call or argument is not valid. مواجه میشود و محل وقوع خطا هم در دستور

Response.Redirect(str1, True)

قبل از Exit Sub میباشد. ممکن است یکی از دوستان راهنمایی کنند که علت این جریان چیست ؟

[jjsaeed]

سلام شما آدرستو که توStr1 میریزی رو با UriBuilder به یه مسیر حقیقی تبدیل کن بعد دستور بعدیش رو بزن شاید برنامت درست بشه البته من از این روش توی c#استفاده می کنم موفق باشی
saeedjj

[kavehYn]

سلام دوستان
من خوشبختانه موفق شدم توضیح بهتری برای مشکلم ارائه بدهم
لطفا به این کد توجه کنید


Try

"Sc = "Tax_Frm_MainForm.aspx
( Response.Redirect(Sc, True
Catch ex As Exception
( Response.Redirect("Frm_ErrorHandler.aspx
EndTry


این کد همیشه خطا بوجود میاورد ولی اگر در قسمت Catch دستور Redirect حذف شود هیچ مشکلی ایجادنمیشود و کد هم با موفقیت اجرا میشود
لطفا دوستانی که با این مساله برخورد کرده اند راهنمایی کنند

[SalarSoft]

کد دستور redirect رو اینطوری بنویس

Response.Redirect(Sc)