ASP.NET

private string _callbackResult = null;
protected void Page_Load(object sender, EventArgs e)
{
string cbReference = Page.ClientScript.GetCallbackEventReference(this, "arg", "Result1", "context");
string cbScript = "function UseCallback1(arg, context)" + "{" + cbReference + ";" + "}";
Page.ClientScript.RegisterClientScriptBlock(this.GetType(), "UseCallback1", cbScript, true);

}
public void RaiseCallbackEvent(string eventArg)
{
string res = AgentLogin(eventArg).ToString();
_callbackResult = res;
}
public string GetCallbackResult()
{
return _callbackResult;
}

Public Class Default1<br />
        Inherits System.Web.UI.Page<br />
<br />
        Dim inc As Integer<br />
        Dim txtEventDate As Date<br />
        Dim txtEventTrigger As Date<br />
<br />
        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
           "Data Source= " & Server.MapPath("~/App_Data/db1.mdb"))<br />
<br />
        Public Sub LoadData()<br />
            Dim da As New OleDbDataAdapter("SELECT * FROM checklist_Items", objConn)<br />
            Dim ds As DataSet = New DataSet()<br />
            da.Fill(ds, "checklist_Items")<br />
<br />
            MyDataList.DataSource = ds.Tables("checklist_Items").DefaultView<br />
            MyDataList.DataBind()<br />
<br />
        End Sub<br />
        Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<br />
            If Not IsPostBack Then<br />
                LoadData()<br />
            End If<br />
<br />
        End Sub<br />
        Sub Update_dc(ByVal ID)<br />
<br />
            '---updates the database---<br />
            Dim sql As String = "UPDATE checklist_Items SET date_Completed=#" + txtEventDate + "# WHERE ID=" + ID<br />
            Dim comm As New OleDbCommand(sql, objConn)<br />
<br />
            objConn.Open()<br />
            comm.ExecuteNonQuery()<br />
            objConn.Close()<br />
<br />
            MyDataList.EditItemIndex = -1<br />
            LoadData()<br />
<br />
        End Sub<br />
<br />
        Sub Update_dt(ByVal ID)<br />
<br />
            '---updates the database---<br />
            Dim sql As String = "UPDATE checklist_Items SET date_Trigger=#" + txtEventTrigger + "# WHERE ID=" + ID<br />
            Dim comm As New OleDbCommand(sql, objConn)<br />
<br />
            objConn.Open()<br />
            comm.ExecuteNonQuery()<br />
            objConn.Close()<br />
<br />
            MyDataList.EditItemIndex = -1<br />
            LoadData()<br />
<br />
        End Sub<br />
Sub MyDataList_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles MyDataList.UpdateCommand<br />
            Dim tbox As TextBox<br />
            Dim ID0 As String<br />
            Dim sday As DateTime<br />
            <br />
            '---retrieves the key for the row---<br />
            ID0 = MyDataList.DataKeys(e.Item.ItemIndex)<br />
<br />
            '---find the textbox control containing the dateCompleted<br />
            tbox = CType(e.Item.FindControl("txtEventDate"), TextBox)<br />
            txtEventDate = tbox.Text<br />
            sday = txtEventDate<br />
If (ID0 = 5) Then<br />
                Update_dc(ID0)<br />
                MsgBox("eventdate " + txtEventDate)<br />
                '---retrieves from another database---<br />
                Dim con = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
               "Data Source= " & Server.MapPath("~/App_Data/vcalendar.mdb")<br />
                Dim da As OleDbDataAdapter<br />
                Dim dc As New DataSet<br />
<br />
                'Dim con As New OleDb.OleDbConnection<br />
                Dim cn As OleDbConnection = New OleDbConnection(con)<br />
                cn.Open()<br />
                Dim c As String = "SELECT * FROM events"<br />
<br />
                da = New OleDb.OleDbDataAdapter(c, cn)<br />
                da.Fill(dc, "events")<br />
                cn.Close()<br />
<br />
                '---find the textbox control containing the dateTrigger<br />
                Dim tbox1 = CType(e.Item.FindControl("txtEventTrigger"), TextBox)<br />
                txtEventTrigger = tbox1.text<br />
                tbox1.Text = dc.Tables("events").Rows(inc).Item(26)<br />
<br />
                Dim objdate As DateTime = New DateTime(Year(tbox1.Text), Month(tbox1.Text), Day(tbox1.Text))<br />
                Dim sday1 As DateTime = objdate<br />
                sday1 = sday1.AddDays(5)<br />
                txtEventTrigger = sday1<br />
<br />
                Update_dt(ID0)<br />
<br />
<br />
            End If<br />
<br />
        End Sub