ASP.NET

Imports System.Data.OleDb
Imports System.Web.Mail

Public Class newsletter1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents btn_submit As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents chk_atico As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_howard As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_fakhreldin As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_vinaigrate As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_trattoria As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_nai As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_wild As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_amigo As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_bistro As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_renchai As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chk_taboula As System.Web.UI.WebControls.CheckBox

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub btn_submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_submit.Click
       
        Dim intid As Integer

        Dim atico As Integer
        Dim amigo As Integer
        Dim bistro As Integer
        Dim fakh As Integer
        Dim howard As Integer
        Dim nai As Integer
        Dim chai As Integer
        Dim taboula As Integer
        Dim tratt As Integer
        Dim vinai As Integer
        Dim wild As Integer


        If chk_atico.Checked = False Then
            Session("atico") = "0"
        End If
        If chk_atico.Checked = True Then
            Session("atico") = "1"
        End If

        If chk_amigo.Checked = False Then
            Session("amigo") = "0"
        End If
        If chk_amigo.Checked = True Then
            Session("amigo") = "1"
        End If

        If chk_bistro.Checked = False Then
            Session("bistro") = "0"
        End If
        If chk_bistro.Checked = True Then
            Session("bistro") = "1"
        End If

        If chk_fakhreldin.Checked = False Then
            Session("fakhreldin") = "0"
        End If
        If chk_fakhreldin.Checked = True Then
            Session("fakhreldin") = "1"
        End If

        If chk_howard.Checked = False Then
            Session("howard") = "0"
        End If
        If chk_howard.Checked = True Then
            Session("howard") = "1"
        End If

        If chk_nai.Checked = False Then
            Session("nai") = "0"
        End If
        If chk_nai.Checked = True Then
            Session("nai") = "1"
        End If

        If chk_renchai.Checked = False Then
            Session("chai") = "0"
        End If
        If chk_renchai.Checked = True Then
            Session("chai") = "1"
        End If

        If chk_taboula.Checked = False Then
            Session("taboula") = "0"
        End If
        If chk_taboula.Checked = True Then
            Session("taboula") = "1"
        End If

        If chk_vinaigrate.Checked = False Then
            Session("vinai") = "0"
        End If
        If chk_vinaigrate.Checked = True Then
            Session("vinai") = "1"
        End If

        If chk_wild.Checked = False Then
            Session("wild") = "0"
        End If
        If chk_wild.Checked = True Then
            Session("wild") = "1"
        End If

        If chk_trattoria.Checked = False Then
            Session("tratt") = "0"
        End If
        If chk_trattoria.Checked = True Then
            Session("tratt") = "1"
        End If


        atico = Session("atico")
        amigo = Session("amigo")
        bistro = Session("bistro")
        fakh = Session("fakhreldin")
        howard = Session("howard")
        nai = Session("nai")
        chai = Session("chai")
        tratt = Session("taboula")
        vinai = Session("vinai")
        wild = Session("wild")
        taboula = Session("tratt")



        Dim conn As OleDbConnection
        Dim cmd As OleDbCommand
        Dim da As OleDbDataAdapter
        Dim ds As DataSet
        Dim dt As New DataTable
        conn = New OleDbConnection
        cmd = New OleDbCommand
        da = New OleDbDataAdapter
        ds = New DataSet
        conn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("\_database\atico_db.mdb") & ";"
        cmd.Connection = conn
        conn.Open()
        cmd.CommandText = "select max(id) from ATICO"
        da.SelectCommand = cmd
        da.Fill(ds, "atico")
        dt = ds.Tables("atico")
        If IsDBNull(dt.Rows(0).Item(0)) Then
            intid = 1
        Else
            intid = (dt.Rows(0).Item(0)) + 1
        End If
        conn.Close()


        conn = New OleDbConnection
        cmd = New OleDbCommand
        da = New OleDbDataAdapter
        ds = New DataSet
        conn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("\_database\atico_db.mdb") & ";"
        cmd.Connection = conn
        conn.Open()
        cmd.CommandText = "select * from ATICO where email=@email"
        cmd.Parameters.Add("@email", Session("email_atico"))
        da.SelectCommand = cmd
        da.Fill(ds, "atico")
        dt = ds.Tables("atico")
        If dt.Rows.Count > 0 Then
            Response.Redirect("thank.aspx")
            conn.Close()
            Exit Sub
        End If
        conn.Close()


        conn = New OleDbConnection
        cmd = New OleDbCommand
        da = New OleDbDataAdapter
        ds = New DataSet
        conn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("\_database\atico_db.mdb") & ";"
        cmd.Connection = conn
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = "insert into ATICO" _
        & " values(@id,@name,@gender,@date,@pro,@company,@position,@tel,@mobile,@email,@address,@atico,@amigo,@bistro,@fakhreldin,@howard,@nai,@chai,@taboula,@tratt,@vinai,@wild)"
        cmd.Parameters.Add("@id", intid)
        cmd.Parameters.Add("@name", Session("name_atico"))
        cmd.Parameters.Add("@gender", Session("gender_atico"))
        cmd.Parameters.Add("@date", Session("date_atico"))
        cmd.Parameters.Add("@pro", Session("pro_atico"))
        cmd.Parameters.Add("@company", Session("company_atico"))
        cmd.Parameters.Add("@position", Session("position_atico"))
        cmd.Parameters.Add("@tel", Session("tel_atico"))
        cmd.Parameters.Add("@mobile", Session("mobile_atico"))
        cmd.Parameters.Add("@email", Session("email_atico"))
        cmd.Parameters.Add("@address", Session("address_atico"))
        cmd.Parameters.Add("@atico", atico)
        cmd.Parameters.Add("@amigo", amigo)
        cmd.Parameters.Add("@bistro", bistro)
        cmd.Parameters.Add("@fakhreldin", fakh)
        cmd.Parameters.Add("@howard", howard)
        cmd.Parameters.Add("@nai", nai)
        cmd.Parameters.Add("@chai", chai)
        cmd.Parameters.Add("@taboula", taboula)
        cmd.Parameters.Add("@tratt", tratt)
        cmd.Parameters.Add("@vinai", vinai)
        cmd.Parameters.Add("@wild", wild)
        da.InsertCommand = cmd
        da.InsertCommand.ExecuteNonQuery()
        conn.Close()
        Dim mymsg As New MailMessage
        Dim mymail As SmtpMail
        mymail.SmtpServer = "localhost"
        mymsg.From = Session("email_atico")
        mymsg.To = "newsletter@atico-jo.com"
 mymsg.To = "ahmad.bataineh@wunderman-me.com;a_bataineh@yahoo.com"
        mymsg.Subject = "ATICO Newsletter"
        mymsg.BodyFormat = MailFormat.Html
        mymsg.Body = "<html><body>"
        mymsg.Body += "New Registration for Newsletter"
        mymsg.Body += "Name :" & Session("name_atico") & "<br>"
        mymsg.Body += "Gender :" & Session("gender_atico") & "<br>"
        mymsg.Body += "Date of Birth :" & Session("date_atico") & "<br>"
        mymsg.Body += "Profession :" & Session("pro_atico") & "<br>"
        mymsg.Body += "Company Name :" & Session("company_atico") & "<br>"
        mymsg.Body += "Position :" & Session("position_atico") & "<br>"
        mymsg.Body += "Telephone :" & Session("tel_atico") & "<br>"
        mymsg.Body += "Mobile :" & Session("mobile_atico") & "<br>"
        mymsg.Body += "Email :" & Session("email_atico") & "<br>"
        mymsg.Body += "Address :" & Session("address_atico") & "<br>"
        mymsg.Body += "</br></br></br></br></br></br></br></br></br></br></body></html>"
        mymail.SmtpServer = "localhost"
        mymail.Send(mymsg)
        Response.Redirect("thanks.aspx")
    End Sub
End Class