Components ASP.Net

  1. Home
  2. ASP.Net
  3. Components
  4. Contact Page (VB net)
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Dim DBConn as OleDbConnection
    Dim DBAdd As New OleDbCommand
    DBConn = New OleDbConnection( _
        "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
        & "DATA SOURCE=" _
        & Server.MapPath _
        ("ContactDB.mdb;"))
    DBAdd.CommandText = "Insert Into Contacts " _
        & "(ContactName, ContactEmail, Topic, " _
        & "TheMessage, DateTimeEntered) values (" _
        & "'" & Replace(txtContactName.Text, "'", "''") _
        & "', " _
        & "'" & Replace(txtContactEmail.Text, "'", "''") _
        & "', " _
        & "'" & ddlTopic.SelectedItem.Text & "', " _
        & "'" & Replace(txtTheMessage.Text, "'", "''") _
        & "', Now)"
    DBAdd.Connection = DBConn
    DBAdd.Connection.Open
    DBAdd.ExecuteNonQuery()
    lblMessage.Text = "Your request has been submitted."
End Sub



Contact Us Page


    id="lblMessage" 
    Font-Size="12pt"
    Font-Name="Tahoma"
    runat="server"
    Text="Complete each field to submit your communication."
/>

Your Name:

    id="txtContactName" 
    columns="25"
    maxlength="50"
    runat=server 
/>
    id="rfvContactName"
    controltovalidate="txtContactName"
    display="Dynamic"
    font-name="Tahoma"
    font-size="10pt"
    runat=server>
    User Name is Required!

Your Email:

    id="txtContactEmail" 
    columns="25"
    maxlength="50"
    runat=server 
/>
    id="rfvContactEmail"
    controltovalidate="txtContactEmail"
    display="Dynamic"
    font-name="Tahoma"
    font-size="10pt"
    runat=server>
    User Name is Required!

Select Topic:

    id="ddlTopic" 
    runat=server 
>
    Web Site
    Order Status
    Other

Your Message:

    id="txtTheMessage" 
    columns="25"
    rows=5
    textmode="multiline"
    runat=server 
/>



    id="butOK"
    text="  OK  "
    OnClick="SubmitBtn_Click" 
    runat="server"
/>



           
       
ContactDB.zip( 8 k)