H.insertHotel(txtName.Text, ddlCategory.SelectedValue, txtTel.Text, txtFax.Text, txtMail.Text, txtSite.Text, txtDistance.Text, txtSRoom.Text, txtDRoom.Text)
            DataGrid1.DataSource = H.allHotel
            DataGrid1.DataBind()
*ON BUTTON
------------------------------------------------------------------------------------------------
Dim com As New SqlCommand
        Dim param1 As New SqlParameter("@HotelName", SqlDbType.VarChar, 50)
        'Dim param2 As New SqlParameter("@HotelPicturePath", SqlDbType.VarChar, 50)
        Dim param4 As New SqlParameter("@HotelCategory", SqlDbType.VarChar, 50)
        Dim param3 As New SqlParameter("@HotelPhone", SqlDbType.VarChar, 50)
        Dim param5 As New SqlParameter("@HotelFax", SqlDbType.VarChar, 50)
        Dim param6 As New SqlParameter("@HotelEmail", SqlDbType.VarChar, 50)
        Dim param7 As New SqlParameter("@@HotelSite", SqlDbType.VarChar, 50)
        Dim param8 As New SqlParameter("@HotelDistance", SqlDbType.VarChar, 50)
        Dim param9 As New SqlParameter("@HotelSinglePrice", SqlDbType.VarChar, 50)
        Dim param10 As New SqlParameter("@HotelDoublePrice", SqlDbType.VarChar, 50)

        param1.Direction = ParameterDirection.Input
        param1.Value = HotelName

        'param2.Direction = ParameterDirection.Input
        'param2.Value = HotelPicturePath

        param3.Direction = ParameterDirection.Input
        param3.Value = HotelCategory

        param4.Direction = ParameterDirection.Input
        param4.Value = HotelPhone

        param5.Direction = ParameterDirection.Input
        param5.Value = HotelFax

        param6.Direction = ParameterDirection.Input
        param6.Value = HotelEmail

        param7.Direction = ParameterDirection.Input
        param7.Value = HotelSite

        param8.Direction = ParameterDirection.Input
        param8.Value = HotelDistance

        param9.Direction = ParameterDirection.Input
        param9.Value = HotelSinglePrice

        param10.Direction = ParameterDirection.Input
        param10.Value = HotelDoublePrice

        com.CommandType = CommandType.StoredProcedure
        com.CommandText = "insertHotel"
        com.Connection = con

        com.Parameters.Add(param1)
        'com.Parameters.Add(param2)
        com.Parameters.Add(param3)
        com.Parameters.Add(param4)
        com.Parameters.Add(param5)
        com.Parameters.Add(param6)
        com.Parameters.Add(param7)
        com.Parameters.Add(param8)
        com.Parameters.Add(param9)
        com.Parameters.Add(param10)

        open_connection()
        com.ExecuteNonQuery()
        close_connection()

*ON CLASS