Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand
Dim a As String = CStr(GridView1.DataKeys.Item(e.CommandName).Value)
Dim now As Date = Date.Now.ToString("yyyy-MM-dd")
Dim d As String = now
Dim stsql As String = "insert into get_day(Users,p_id,send_day) values('" & Session("user") & "','" & GridView1.DataKeys.Item(e.CommandName).Value & "','" & d & "')"
' Dim susql As String = "update get_day set Users='',p_id='',status='' where send_day='" & now & "'"
Dim obcmd As New SqlCommand(stsql, con)
con.Open()
obcmd.ExecuteNonQuery()
con.Close()
binddata()
End Sub