Order Importer - Notification Page

<%@ Page Language="VB" %>

<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">

   Protected Sub Page_Load(ByVal Sender As Object, ByVal e As System.EventArgs)

       If Not Request("OrderIDString") Is Nothing Then

           'connect to database

           Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.PhysicalApplicationPath & "\DemoData\SageDemoData.mdb;Persist Security Info=False")

           Conn.Open()

           Dim Cmd As New OleDbCommand("UPDATE Orders SET ExportedToSage=1 WHERE OrderID IN(" & Request("OrderIDString") & ")", Conn)

           Cmd.ExecuteNonQuery()

           'disconnect from database

           Conn.Close()

       End If

   End Sub

</script>