Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sConnStr As String = "Data Source=sql5.sanpad.org.za,1444;Initial Catalog=sanpadsql2005;Persist Security Info=True;User ID=sanpaduser;Password=Passw0rd"
        Dim cn As New SqlConnection(sConnStr)
        Dim cmd As New SqlCommand("pi_addsurvey", cn)

        cmd.CommandType = Data.CommandType.StoredProcedure

        cmd.Parameters.Add(New SqlParameter("@aWorkshopName", Data.SqlDbType.VarChar))
        cmd.Parameters("@aWorkshopName").Value = txtWorkshopName.Text

        cmd.Parameters.Add(New SqlParameter("@aWorkshopVenue", Data.SqlDbType.VarChar))
        cmd.Parameters("@aWorkshopVenue").Value = txtWorkshopVenue.Text

        cmd.Parameters.Add(New SqlParameter("@aTimely_delivery_workshop_info", Data.SqlDbType.VarChar))
        cmd.Parameters("@aTimely_delivery_workshop_info").Value = DropDownList23.Text

        cmd.Parameters.Add(New SqlParameter("@aTimely_delivery_reading_material", Data.SqlDbType.VarChar))
        cmd.Parameters("@aTimely_delivery_reading_material").Value = DropDownList24.Text

        cmd.Parameters.Add(New SqlParameter("@aTimely_delivery_travelplans", Data.SqlDbType.VarChar))
        cmd.Parameters("@aTimely_delivery_travelplans").Value = DropDownList25.Text

        cmd.Parameters.Add(New SqlParameter("@aEfficiency_response_requests", Data.SqlDbType.VarChar))
        cmd.Parameters("@aEfficiency_response_requests").Value = DropDownList26.Text

        cmd.Parameters.Add(New SqlParameter("@aSensitivity_requests", Data.SqlDbType.VarChar))
        cmd.Parameters("@aSensitivity_requests").Value = DropDownList27.Text

        cmd.Parameters.Add(New SqlParameter("@aTravel_arrangements", Data.SqlDbType.VarChar))
        cmd.Parameters("@aTravel_arrangements").Value = DropDownList28.Text

        cmd.Parameters.Add(New SqlParameter("@aservices_coordinator", Data.SqlDbType.VarChar))
        cmd.Parameters("@aservices_coordinator").Value = DropDownList29.Text

        cmd.Parameters.Add(New SqlParameter("@alocation_workshop", Data.SqlDbType.VarChar))
        cmd.Parameters("@alocation_workshop").Value = DropDownList22.Text

        cmd.Parameters.Add(New SqlParameter("@ahotel_service", Data.SqlDbType.VarChar))
        cmd.Parameters("@ahotel_service").Value = DropDownList21.Text

        cmd.Parameters.Add(New SqlParameter("@ahotel_rooms", Data.SqlDbType.VarChar))
        cmd.Parameters("@ahotel_rooms").Value = DropDownList20.Text

        cmd.Parameters.Add(New SqlParameter("@ahotel_meals", Data.SqlDbType.VarChar))
        cmd.Parameters("@ahotel_meals").Value = DropDownList19.Text

        cmd.Parameters.Add(New SqlParameter("@aground_travel_arrangements", Data.SqlDbType.VarChar))
        cmd.Parameters("@aground_travel_arrangements").Value = DropDownList18.Text

        cmd.Parameters.Add(New SqlParameter("@aGeneral_cmt", Data.SqlDbType.VarChar))
        cmd.Parameters("@aGeneral_cmt").Value = TextBox6.Text

        cmd.Parameters.Add(New SqlParameter("@aObjectives_inline", Data.SqlDbType.VarChar))
        cmd.Parameters("@aObjectives_inline").Value = DropDownList1.Text

        cmd.Parameters.Add(New SqlParameter("@aObjectives_inline_explain", Data.SqlDbType.VarChar))
        cmd.Parameters("@aObjectives_inline_explain").Value = TextBox7.Text

        cmd.Parameters.Add(New SqlParameter("@aObjectives_obtained", Data.SqlDbType.VarChar))
        cmd.Parameters("@aObjectives_obtained").Value = DropDownList2.Text

        cmd.Parameters.Add(New SqlParameter("@aObjectives_obtained_explain", Data.SqlDbType.VarChar))
        cmd.Parameters("@aObjectives_obtained_explain").Value = TextBox5.Text

        cmd.Parameters.Add(New SqlParameter("@aTeaching_methods", Data.SqlDbType.VarChar))
        cmd.Parameters("@aTeaching_methods").Value = DropDownList3.Text

        cmd.Parameters.Add(New SqlParameter("@aTeaching_methods_explain", Data.SqlDbType.VarChar))
        cmd.Parameters("@aTeaching_methods_explain").Value = TextBox8.Text

        cmd.Parameters.Add(New SqlParameter("@aWorkshop_content_interesting", Data.SqlDbType.VarChar))
        cmd.Parameters("@aWorkshop_content_interesting").Value = DropDownList4.Text

        cmd.Parameters.Add(New SqlParameter("@aWorkshop_content_worthknowing", Data.SqlDbType.VarChar))
        cmd.Parameters("@aWorkshop_content_worthknowing").Value = DropDownList33.Text

        cmd.Parameters.Add(New SqlParameter("@aWorkshop_content_appropriate", Data.SqlDbType.VarChar))
        cmd.Parameters("@aWorkshop_content_appropriate").Value = DropDownList32.Text

        cmd.Parameters.Add(New SqlParameter("@aWorkshop_content_stimulating", Data.SqlDbType.VarChar))
        cmd.Parameters("@aWorkshop_content_stimulating").Value = DropDownList31.Text

        cmd.Parameters.Add(New SqlParameter("@aExpectations_programme", Data.SqlDbType.VarChar))
        cmd.Parameters("@aExpectations_programme").Value = DropDownList5.Text

        cmd.Parameters.Add(New SqlParameter("@aExpectations_programme_explain", Data.SqlDbType.VarChar))
        cmd.Parameters("@aExpectations_programme_explain").Value = TextBox9.Text

        cmd.Parameters.Add(New SqlParameter("@aReading_material", Data.SqlDbType.VarChar))
        cmd.Parameters("@aReading_material").Value = DropDownList6.Text

        cmd.Parameters.Add(New SqlParameter("@aReading_material_explain", Data.SqlDbType.VarChar))
        cmd.Parameters("@aReading_material_explain").Value = TextBox10.Text

        cmd.Parameters.Add(New SqlParameter("@aworkshop_content", Data.SqlDbType.VarChar))
        cmd.Parameters("@aworkshop_content").Value = DropDownList30.Text

        cmd.Parameters.Add(New SqlParameter("@aworkshop_content_explain", Data.SqlDbType.VarChar))
        cmd.Parameters("@aworkshop_content_explain").Value = TextBox11.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_enthusiasm_NL", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_enthusiasm_NL").Value = DropDownList8.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_enthusiasm_SA", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_enthusiasm_SA").Value = DropDownList9.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_knowledge_NL", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_knowledge_NL").Value = DropDownList10.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_knowledge_SA", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_knowledge_SA").Value = DropDownList11.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_appropriate_NL", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_appropriate_NL").Value = DropDownList12.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_appropriate_SA", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_appropriate_SA").Value = DropDownList13.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_Communication_NL", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_Communication_NL").Value = DropDownList14.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_Communication_SA", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_Communication_SA").Value = DropDownList15.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_Presentation_prep_NL", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_Presentation_prep_NL").Value = DropDownList16.Text

        cmd.Parameters.Add(New SqlParameter("@afacilitator_Presentation_prep_SA", Data.SqlDbType.VarChar))
        cmd.Parameters("@afacilitator_Presentation_prep_SA").Value = DropDownList17.Text

        cmd.Parameters.Add(New SqlParameter("@alesson_learnt", Data.SqlDbType.VarChar))
        cmd.Parameters("@alesson_learnt").Value = TextBox2.Text

        cmd.Parameters.Add(New SqlParameter("@aaspects_nextworkshop", Data.SqlDbType.VarChar))
        cmd.Parameters("@aaspects_nextworkshop").Value = TextBox4.Text

        cn.Open()
        cmd.ExecuteNonQuery()
        cn.Close()

        lbl.Text = "Thank you for your valuable feedback."
        lbl.Visible = True

    End Sub



End Class