Protected Sub Repeater2_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) 
         Dim id As String 
         Dim i As Integer 
         id = e.CommandArgument.ToString() 
         Using cn As New SqlConnection 
             cn.ConnectionString = ConfigurationManager.ConnectionStrings("APSS_SqlConn").ConnectionString 
             cn.Open() 
             Dim sql As String 
             If e.CommandName = "delete" Then 
                 sql = String.Concat("update tb_po2 set status='X', last_updated_time=getdate(),last_updated_by='", Session("currentuserid"), "'where poid='", id, "'") 
                 Dim cmd As New SqlCommand(sql, cn) 
                 i = cmd.ExecuteNonQuery() 
                 If i > 0 Then 
                     Response.Redirect("po_list.aspx") 
                 End If 
             End If 
             If e.CommandName = "NC" Then 
                 sql = String.Concat("update tb_po2 set status='N', last_updated_time=getdate(),last_updated_by='", Session("currentuserid"), "'where poid='", id, "'") 
                 Dim cmd As New SqlCommand(sql, cn) 
                 i = cmd.ExecuteNonQuery() 
                 If i > 0 Then 
                     Response.Redirect("po_list.aspx") 
                 End If 
             End If 
         End Using 
     End Sub