REM ESEGUO IL CONTROLLO LA DISPONIBILITA E' GIA' PRESENTE O NO
                                Using sqlcmd As New SqlCommand("Search_disponibilita_import", db)
                                    sqlcmd.CommandType = CommandType.StoredProcedure
                                    sqlcmd.Parameters.AddWithValue("@codalbergo", SqlDbType.Int).Value = 71 'codice_albergo
                                    sqlcmd.Parameters.AddWithValue("@data", SqlDbType.Date).Value = dataArrivo
                                    If Convert.ToInt32(sqlcmd.ExecuteScalar()) = 1 Then
                                        flagDisp = 1
                                    Else
                                        flagDisp = 0
                                    End If
                                End Using
                                REM INSERIMENTO DISPONIBILITA
                                Using sqlcmd As New SqlCommand("Insert_disponibilita", db)
                                    sqlcmd.CommandType = CommandType.StoredProcedure
                                    sqlcmd.Parameters.AddWithValue("@CodiceAlbergo", SqlDbType.Int).Value = codalb
                                    sqlcmd.Parameters.AddWithValue("@Data", SqlDbType.Date).Value = dataArrivo
                                    sqlcmd.Parameters.AddWithValue("@flagdisp", SqlDbType.Bit).Value = flagDisp
                                    sqlcmd.Parameters.AddWithValue("@Ncamdisponibili", SqlDbType.Int).Value = camdisp
                                    sqlcmd.Parameters.AddWithValue("@Ncamoccupate", SqlDbType.Int).Value = camocc
                                    sqlcmd.ExecuteNonQuery()
                       End Using