Asp.net Üyelik sisteminde üye izinleri

 If (dtUyeKontrol.Rows.Count = 0) Then 
                          txtMesaj.Visible = False 
                          txtMesajBaslik.Visible = False 
                      Else 
                          litEPosta.Text = dtUyeKontrol.Rows("0")("EPosta") 
                      End If 
   
                      Dim dtUyePaketleri As DataTable = UyePaket.UyePaket(CInt(litAlanID.Text.ToString)) 
                      If (dtUyePaketleri.Rows.Count > 0) Then 
                          For Each dr As DataRow In dtUyePaketleri.Rows 
                              Dim dtPaketler As New DataTable 
                              Dim cmdPaketler As New SqlDataAdapter("SELECT ID, PaketAdi, MesajAtabilir, TelefonGorebilir, EMailGorebilir FROM UyelikPaketleri WHERE (ID = " & dr("PaketID") & ") ORDER BY SK DESC", objSqlConnection) 
                              cmdPaketler.Fill(dtPaketler) 
   
                              If (dtPaketler.Rows(0)("MesajAtabilir")) Then 
                                  pnlFormForm.Visible = True 
                                  pnlParaliUyelik.Visible = False 
                                  Exit For 
                              Else 
                                  pnlParaliUyelik.Visible = True 
                                  pnlFormForm.Visible = False 
                              End If 
                          Next 
                      Else 
                          pnlParaliUyelik.Visible = True 
                          pnlFormForm.Visible = False 
                      End If 
   
                      If ((IsNothing(objSqlTransaction)) OrElse (IsNothing(objSqlTransaction.Connection))) Then 
                          objSqlTransaction = objSqlConnection.BeginTransaction(IsolationLevel.ReadCommitted) 
                      End If