Save Changes on Close of Browser or When Exiting the Page

Imports System.Data
Imports System.Data.Common
Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Microsoft.Practices.EnterpriseLibrary.ExceptionHandling

Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Not IsPostBack Then
                mytxt.Text = ""
                LinkButton1.Attributes.Add("tag", "DonotCallSaveonLoad")
                LinkButton1.Attributes.Add("onClick", "currentElement = event.srcElement;")
                Button1.Attributes.Add("tag", "DonotCallSaveonLoad")
                Button1.Attributes.Add("onClick", "currentElement = event.srcElement;")
                ImageButton1.Attributes.Add("tag", "DonotCallSaveonLoad")
                ImageButton1.Attributes.Add("onClick", "currentElement = event.srcElement;")
                DropDownList2.Attributes.Add("tag", "DonotCallSaveonLoad")
                DropDownList2.Attributes.Add("onClick", "currentElement = event.srcElement;")
                myhref1.Attributes.Add("tag", "DonotCallSaveonLoad")
                myhref2.Attributes.Add("tag", "DonotCallSaveonLoad")
                myhref1.Attributes.Add("onClick", "currentElement = event.srcElement;")
                myhref2.Attributes.Add("onClick", "currentElement = event.srcElement;")
                grdData.DataSource = GetDatafromTable("Table")
                grdData.DataBind()
                grdError.DataSource = GetDatafromTable("Error")
                grdError.DataBind()
            End If
            If hdtoSaveData.Value = "PageClosed" Then
                If drpError.SelectedValue = "Yes" Then
                    Dim a As Integer = 1
                    Dim b As Integer = 0
                    Dim x As Integer = CInt(a / b)
                End If
                SaveDataonPage()
            End If
        Catch ex As Exception
            ExceptionPolicy.HandleException(ex, "SamplePolicy")
            GetDatafromTable("Error")
        End Try
    End Sub

    ''' <summary>
    ''' The functionality to save data on the Page.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub SaveDataonPage()
        Try
            Dim db As Database = DatabaseFactory.CreateDatabase
            Using dbcomm As DbCommand = db.GetSqlStringCommand("Insert into temp values('" & mytxt.Text & "')")
                db.ExecuteNonQuery(dbcomm)
            End Using
            grdData.DataSource = GetDatafromTable("Table")
            grdData.DataBind()
        Catch ex As Exception
            ExceptionPolicy.HandleException(ex, "SamplePolicy")
            GetDatafromTable("Error")
        End Try
    End Sub

    ''' <summary>
    ''' Click Event for Link button
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Try
            If drpError.SelectedValue = "Yes" Then
                Dim a As Integer = 1
                Dim b As Integer = 0
                Dim x As Integer = CInt(a / b)
            End If
            SaveDataonPage()
        Catch ex As Exception
            ExceptionPolicy.HandleException(ex, "SamplePolicy")
            GetDatafromTable("Error")
        End Try
    End Sub

    ''' <summary>
    ''' Click Event for  Button Click
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If drpError.SelectedValue = "Yes" Then
                Dim a As Integer = 1
                Dim b As Integer = 0
                Dim x As Integer = CInt(a / b)
            End If
            SaveDataonPage()
        Catch ex As Exception
            ExceptionPolicy.HandleException(ex, "SamplePolicy")
            GetDatafromTable("Error")
        End Try
    End Sub

    ''' <summary>
    ''' Click Event for Image Button
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Try
            If drpError.SelectedValue = "Yes" Then
                Dim a As Integer = 1
                Dim b As Integer = 0
                Dim x As Integer = CInt(a / b)
            End If
            SaveDataonPage()
        Catch ex As Exception
            ExceptionPolicy.HandleException(ex, "SamplePolicy")
            GetDatafromTable("Error")
        End Try
    End Sub

    ''' <summary>
    ''' Change event for DropDownList
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub DropDownList2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged
        Try
            If drpError.SelectedValue = "Yes" Then
                Dim a As Integer = 1
                Dim b As Integer = 0
                Dim x As Integer = CInt(a / b)
            End If
            SaveDataonPage()
        Catch ex As Exception
            ExceptionPolicy.HandleException(ex, "SamplePolicy")
            GetDatafromTable("Error")
        End Try
    End Sub

    ''' <summary>
    ''' Function to get the data from database
    ''' </summary>
    ''' <param name="Type"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetDatafromTable(ByVal Type As String) As DataTable
        Dim db As Database = DatabaseFactory.CreateDatabase
        Dim dsobj As DataSet
        Try
            If Type = "Error" Then
                Using dbcomm As DbCommand = db.GetSqlStringCommand("SELECT [FormattedMessage] as name FROM [log]")
                    dsobj = db.ExecuteDataSet(dbcomm)
                    Return dsobj.Tables(0)
                End Using
            Else
                Using dbcomm As DbCommand = db.GetSqlStringCommand("SELECT * FROM temp")
                    dsobj = db.ExecuteDataSet(dbcomm)
                    Return dsobj.Tables(0)
                End Using
            End If
        Catch ex As Exception
            ExceptionPolicy.HandleException(ex, "SamplePolicy")
        End Try
    End Function
End Class