اجرا شدن دوباره برنامه

[tc1000]

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

[eyes_shut_number1]

معمولا موقعی که شما یک آدرس دهی اشتباه کرده باشی این اتفاق می افته
مثلا آدرس css ای داده باشی که در فایل ها موجود نباشه
در مورد فایل های JS هم صدق می کنه

اگه این نبود کدت رو بذار

[tc1000]

Dim conn4 As New SqlConnection(strcon)

Dim mydataset4 As New Data.DataSet
Dim myadapter4 As New SqlDataAdapter
Dim mycommand4 As New SqlCommand("select * from register where mobile=@mobile", conn4)
mycommand4.Parameters.AddWithValue("mobile", Trim(mobile.Text))
myadapter4.SelectCommand = mycommand4
conn4.Open()
mycommand4.ExecuteNonQuery()
myadapter4.Fill(mydataset4)
'******************** start read database
Dim dr4 As SqlDataReader
dr4 = mycommand4.ExecuteReader()
Do While dr4.Read()
payam0.Text = "موبایل مورد نظر در سیستم موجود است"
cunter = 0
Exit Sub
Loop
dr4.Close()
conn4.Close()

[mahmood_4246]

بعد از اجرای کد redirect کن به صفحه فعلیت.. منم همچین مشکلی داشتم .. با این درستش گردم