Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Mail

Public Class registration
    Inherits System.Web.UI.Page
    Protected WithEvents lblError As System.Web.UI.WebControls.Label
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents textFName As System.Web.UI.WebControls.TextBox
    Protected WithEvents textLName As System.Web.UI.WebControls.TextBox
    Protected WithEvents textDepartment As System.Web.UI.WebControls.TextBox
    Protected WithEvents textTelephone As System.Web.UI.WebControls.TextBox
    Protected WithEvents textEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents textMessage As System.Web.UI.WebControls.TextBox
    Protected WithEvents categoryList As System.Web.UI.WebControls.DropDownList

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    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
        If Not (IsPostBack) Then
            Dim MyConnection As SqlConnection

            MyConnection = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))


            Dim queryString As String = "SELECT [recordID] as recordID, [CategoryName] as CategoryName FROM [eduCategory] where status='opened' order by recordID DESC"
            Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, MyConnection)

            MyConnection.Open()
            Dim dataReader As System.Data.SqlClient.SqlDataReader = sqlCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

            categoryList.DataSource = dataReader
            categoryList.DataValueField = "recordID"
            categoryList.DataTextField = "CategoryName"

            categoryList.DataBind()

            MyConnection.Close()
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If categoryList.SelectedItem.Text = "Select an  education program" Then
            lblError.Text = "Please select an education to register"
            Exit Sub
        End If

        Dim fullName As String
        fullName = textLName.Text & ", " & textFName.Text


        Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
        Dim strSQL As String

        'strSQL = "INSERT INTO summer2002registration Name, department, telephone, email, message, category, fName, lName VALUES(@name,@department,@telephone,@email,@message,@category,@fName,@lName)"
        strSQL = "INSERT INTO summer2002registration (fname,lName,name,department,telephone,email,message,category) values (@fName,@lName,@name,@department,@telephone,@email,@message,@category)"

        Dim myCommand As New SqlCommand(strSQL, myConnection)

        myCommand.Parameters.Add(New SqlParameter("@lName", textLName.Text))
        myCommand.Parameters.Add(New SqlParameter("@fName", textFName.Text))
        myCommand.Parameters.Add(New SqlParameter("@name", fullName))
        myCommand.Parameters.Add(New SqlParameter("@department", textDepartment.Text))
        myCommand.Parameters.Add(New SqlParameter("@telephone", textTelephone.Text))
        myCommand.Parameters.Add(New SqlParameter("@email", textEmail.Text))
        myCommand.Parameters.Add(New SqlParameter("@message", textMessage.Text))
        myCommand.Parameters.Add(New SqlParameter("@category", categoryList.SelectedItem.Text))


        Try
            myConnection.Open()
            myCommand.ExecuteNonQuery()
            myConnection.Close()
            Response.Redirect("thankyou.aspx")

        Catch

        End Try


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub
End Class