Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Dim DBConn as OleDbConnection
    Dim DBInsert As New OleDbCommand
    Dim DBCommand As OleDbDataAdapter
    Dim DSPageData as New DataSet
    Dim CurrentQuantity as Integer
    Dim CurrentPrice as Single
    Dim CurrentShipping as Single
    Dim CurrentProductName as String
    DBConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
        & "DATA SOURCE=" & Server.MapPath("./base.mdb;"))
		
		DBInsert.Connection = DBConn
		DBInsert.Connection.Open
		
    If Len(Session("CustomerID")) =  0  Then    
		
        DBInsert.CommandText = "Insert Into Customers " _
            & "(Status, DateEntered) values ('Shopping', '" _
            & Now() & "')"
			
		DBInsert.ExecuteNonQuery()
		DBInsert.Connection.close
        DBCommand = New OleDbDataAdapter _
            ("Select Max(CustomerID) as MaxID " _
            & "From Customers", DBConn) 
        DBCommand.Fill(DSPageData, _
            "CustomerID")
        Session("CustomerID") = DSPageData.Tables("CustomerID"). _
            Rows( 0 ).Item("MaxID")
    End If
	
    DBCommand = New OleDbDataAdapter _
        ("Select ProductName, ShippingCharge, " _
        & "Price From Products Where " _
        & "ProductID = " & Request.QueryString("ProductID") _
        , DBConn) 
    DBCommand.Fill(DSPageData, _
        "ProductData")
    CurrentQuantity = txtQuantity.Text
    CurrentPrice = CurrentQuantity * _
        DSPageData.Tables("ProductData"). _
        Rows( 0 ).Item("Price")
    CurrentShipping = CurrentQuantity * _
        DSPageData.Tables("ProductData"). _
        Rows( 0 ).Item("ShippingCharge")
    CurrentProductName = DSPageData.Tables("ProductData"). _
        Rows( 0 ).Item("ProductName")
	
    DBInsert.CommandText = "Insert Into ShoppingCartItems " _
        & "(CustomerID, ProductName, Quantity, Price, Shipping) " _
        & "values (" _
        & Session("CustomerID") & ", " _
        & "'" & CurrentProductName & "', " _
        & CurrentQuantity & ", " _
        & CurrentPrice & ", " _
        & CurrentShipping & ")"
		DBInsert.Connection.close
    Response.Redirect("./check_out.aspx")
End Sub