<%@ Page Language="VB" %>
<%@ Register TagPrefix="wmx" Namespace="Microsoft.Matrix.Framework.Web.UI" Assembly="Microsoft.Matrix.Framework, Version=0.6.0.0, Culture=neutral, PublicKeyToken=6f763c9966660626" %>
<script runat="server">

    Sub btnSave_Click(sender As Object, e As EventArgs)
        SaveContact(txtFullName.Text, txtPhoneNumber.Text, txtEmailAddress.Text, txtWebsiteURL.Text, txtAddress.Text, txtCity.Text, txtState.Text, txtZipcode.Text, txtNotes.Text)
        txtFullName.Text = ""
        txtPhoneNumber.Text = ""
        txtEmailAddress.Text = ""
        txtWebsiteURL.Text = ""
        txtAddress.Text = ""
        txtCity.Text = ""
        txtState.Text = ""
        txtZipcode.Text = ""
        txtNotes.Text = ""
    End Sub
    
        Function SaveContact(ByVal fullName As String, ByVal phoneNumber As String, ByVal emailAddress As String, ByVal websiteURL As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zipcode As String, ByVal notes As String) As Integer
            Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Documents an"& _
    "d Settings\andreiv\My Documents\NET\data.mdb"
            Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
    
            Dim queryString As String = "INSERT INTO [Contacts] ([FullName], [PhoneNumber], [EmailAddress], [WebsiteURL], "& _
    "[Address], [City], [State], [Zipcode], [Notes]) VALUES (@FullName, @PhoneNumber,"& _
    " @EmailAddress, @WebsiteURL, @Address, @City, @State, @Zipcode, @Notes)"
            Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
            dbCommand.CommandText = queryString
            dbCommand.Connection = dbConnection
    
            Dim dbParam_fullName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_fullName.ParameterName = "@FullName"
            dbParam_fullName.Value = fullName
            dbParam_fullName.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_fullName)
            Dim dbParam_phoneNumber As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_phoneNumber.ParameterName = "@PhoneNumber"
            dbParam_phoneNumber.Value = phoneNumber
            dbParam_phoneNumber.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_phoneNumber)
            Dim dbParam_emailAddress As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_emailAddress.ParameterName = "@EmailAddress"
            dbParam_emailAddress.Value = emailAddress
            dbParam_emailAddress.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_emailAddress)
            Dim dbParam_websiteURL As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_websiteURL.ParameterName = "@WebsiteURL"
            dbParam_websiteURL.Value = websiteURL
            dbParam_websiteURL.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_websiteURL)
            Dim dbParam_address As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_address.ParameterName = "@Address"
            dbParam_address.Value = address
            dbParam_address.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_address)
            Dim dbParam_city As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_city.ParameterName = "@City"
            dbParam_city.Value = city
            dbParam_city.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_city)
            Dim dbParam_state As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_state.ParameterName = "@State"
            dbParam_state.Value = state
            dbParam_state.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_state)
            Dim dbParam_zipcode As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_zipcode.ParameterName = "@Zipcode"
            dbParam_zipcode.Value = zipcode
            dbParam_zipcode.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_zipcode)
            Dim dbParam_notes As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
            dbParam_notes.ParameterName = "@Notes"
            dbParam_notes.Value = notes
            dbParam_notes.DbType = System.Data.DbType.String
            dbCommand.Parameters.Add(dbParam_notes)
    
            Dim rowsAffected As Integer =  0 
            dbConnection.Open
            Try
                rowsAffected = dbCommand.ExecuteNonQuery
            Finally
                dbConnection.Close
            End Try
    
            Return rowsAffected
        End Function

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <p>
            <asp:Label id="lblFullName" runat="server" width="144" height="24">Full Name</asp:Label>  
            <asp:TextBox id="txtFullName" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblPhoneNumber" runat="server" width="144" height="24">Phone Number</asp:Label>  
            <asp:TextBox id="txtPhoneNumber" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblEmailAddress" runat="server" width="144" height="24">Email Address</asp:Label>  
            <asp:TextBox id="txtEmailAddress" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblWebsiteURL" runat="server" width="144" height="24">Website URL</asp:Label> <asp:TextBox id="txtWebsiteURL" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblAddress" runat="server" width="144" height="24">Address</asp:Label> <asp:TextBox id="txtAddress" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblCity" runat="server" width="144" height="24">City</asp:Label> <asp:TextBox id="txtCity" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblState" runat="server" width="144" height="24">State</asp:Label> <asp:TextBox id="txtState" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblZipcode" runat="server" width="144" height="24">Zip code</asp:Label> <asp:TextBox id="txtZipcode" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Label id="lblNotes" runat="server" width="144" height="24">Notes</asp:Label> <asp:TextBox id="txtNotes" runat="server"></asp:TextBox>
        </p>
        <p>
            <asp:Button id="btnSave" onclick="btnSave_Click" runat="server" Text="Save"></asp:Button>
        </p>
        <p>
            <asp:DataGrid id="DataGrid1" runat="server" BorderStyle="Solid" CellSpacing="2" BorderWidth="3px" BorderColor="#999999" BackColor="#CCCCCC" CellPadding="4" DataSource="<%# AccessDataSourceControl1 %>" DataKeyField="contactID" AllowSorting="True" DataMember="Table" AllowPaging="True" ForeColor="Black">
                <FooterStyle backcolor="#CCCCCC"></FooterStyle>
                <HeaderStyle font-bold="True" forecolor="White" backcolor="Black"></HeaderStyle>
                <PagerStyle nextpagetext="Next" prevpagetext="Previous" horizontalalign="Left" forecolor="Black" backcolor="#CCCCCC"></PagerStyle>
                <SelectedItemStyle font-bold="True" forecolor="White" backcolor="#000099"></SelectedItemStyle>
                <ItemStyle backcolor="White"></ItemStyle>
                <Columns>
                    <asp:BoundColumn DataField="contactID" SortExpression="contactID" ReadOnly="True" HeaderText="Contact ID"></asp:BoundColumn>
                    <asp:BoundColumn DataField="FullName" SortExpression="FullName" ReadOnly="True" HeaderText="Full Name"></asp:BoundColumn>
                    <asp:BoundColumn DataField="PhoneNumber" ReadOnly="True" HeaderText="Phone Number"></asp:BoundColumn>
                    <asp:BoundColumn DataField="EmailAddress" ReadOnly="True" HeaderText="Email Address"></asp:BoundColumn>
                    <asp:BoundColumn DataField="WebsiteURL" ReadOnly="True" HeaderText="Website URL"></asp:BoundColumn>
                    <asp:BoundColumn DataField="Address" ReadOnly="True" HeaderText="Address"></asp:BoundColumn>
                    <asp:BoundColumn DataField="City" ReadOnly="True" HeaderText="City"></asp:BoundColumn>
                    <asp:BoundColumn DataField="State" ReadOnly="True" HeaderText="State"></asp:BoundColumn>
                    <asp:BoundColumn DataField="Zipcode" ReadOnly="True" HeaderText="Zip code"></asp:BoundColumn>
                    <asp:BoundColumn DataField="Notes" ReadOnly="True" HeaderText="Notes"></asp:BoundColumn>
                    <asp:EditCommandColumn ButtonType="LinkButton" UpdateText="Update" CancelText="Cancel" EditText="Edit"></asp:EditCommandColumn>
                    <asp:ButtonColumn Text="Delete" CommandName="Delete"></asp:ButtonColumn>
                </Columns>
            </asp:DataGrid>
            <wmx:AccessDataSourceControl id="AccessDataSourceControl1" runat="server" ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Documents and Settings\andreiv\My Documents\NET\data.mdb" SelectCommand="select * from contacts"></wmx:AccessDataSourceControl>
        </p>
        <! -- Insert content here -->
 
    </form>
</body>
</html>

Sub DataGrid1_UpdateCommand(sender As Object, e As DataGridCommandEventArgs)
    Dim idText as TextBox = CType(e.Item.Cells( 1 ).Controls( 0 ), TextBox)
    Dim fullnameText as TextBox = CType(e.Item.Cells( 2 ).Controls( 0 ), TextBox)
    Dim phoneText as TextBox = CType(e.Item.Cells( 3 ).Controls( 0 ), TextBox)
    Dim emailText as TextBox = CType(e.Item.Cells( 4 ).Controls( 0 ), TextBox)
    Dim websiteText as TextBox = CType(e.Item.Cells( 5 ).Controls( 0 ), TextBox)
    Dim addressText as TextBox = CType(e.Item.Cells( 6 ).Controls( 0 ), TextBox)
    Dim cityText as TextBox = CType(e.Item.Cells( 7 ).Controls( 0 ), TextBox)
    Dim stateText as TextBox = CType(e.Item.Cells( 8 ).Controls( 0 ), TextBox)
    Dim zipcodeText as TextBox = CType(e.Item.Cells( 9 ).Controls( 0 ), TextBox)
    Dim notesText as TextBox = CType(e.Item.Cells( 10 ).Controls( 0 ), TextBox)
    Dim intID As Integer = Convert.ToInt32(idText.Text)
    Dim strFullName As String = fullnameText.Text
    Dim strPhone As String = phoneText.Text
    Dim strEmail As String = emailText.Text
    Dim strWebsite As String = websiteText.Text
    Dim strAddress As String = addressText.Text
    Dim strCity As String = cityText.Text
    Dim strState As String = stateText.Text
    Dim strZipcode As String = zipcodeText.Text
    Dim strNotes As String = notesText.Text
    UpdateContact(intID, strFullName, strPhone, strEmail, strWebsite, strAddress, strCity, strState, strZipcode, strNotes)
End Sub